library(tidyverse)
library(plotly)
library(sf)
library(mapview)
library(tigris)
library(censusapi)
library(leaflet)
library(lehdr)
library(usmap)
library(lmtest)
library(pracma)
library(lmtest)
library(forecast)
library(vars)
library(rvest)
library(RSelenium)
library(seleniumPipes)
library(dLagM)
library(jsonlite)
library(rgdal)
library(esri2sf)
library(readr)
options(
tigris_class = "sf",
tigris_use_cache = TRUE
)
Sys.setenv(CENSUS_KEY="10dcd73d7c043e91bac9fb8d3989cbff54b08790")
# SET your path here to the covid19analysis folder.
sg_path <- '/Users/simonespeizer/pCloud Drive/Shared/SFBI/Restricted Data Library/Safegraph/covid19analysis/'
sg_hourly_path <- '/Users/simonespeizer/pCloud Drive/Shared/SFBI/Restricted Data Library/Safegraph/covid19analysis/weekly-patterns/v2/hourly/'
In this Rmd, I explore the predictive ability of visits over time.
Here I look at each week of visits data, from Monday to Monday, and see how well that week of visits data predicts the change in cases over one week, two weeks later. The week of visits data includes 7 days; the change in cases is from day 1 through day 8. For example, the first week of visits data, 3/9-3/15, is compared to the change in cases from 3/23 to 3/30.
For each set of dates, the code below outputs five different models:
-For change in cases, using all data
-For change in cases, using only data where the starting number of cases is greater than 0
-For change in log of cases, using only data where the starting number of cases is greater than 0
-For change in cases, using only data where the starting number of cases is greater than or equal to 10
-For change in log of cases, using only data where the starting number of cases is greater than or equal to 10
Each of these is run as just visits and change in (log of) cases in a model, as well as visits + demographic variables and change in (log of) cases.
# load the data
# load block groups and their correspondence to ZCTAs
ac_bg_zctas <- readRDS("Simone_Speizer/ac_bg_ztcas.rds")
ac_bgs <- ac_bg_zctas %>% pull(blockgroup)
# load the case data
# note this is downloaded manually
ac_place_cases <- read.csv("Simone_Speizer/Alameda_County_Cumulative_Cases_By_Place_And_Zip.csv")
# handle the ones that are reported as <10 by calling them 5 cases. Note this is a simplification/choice I made and could be changed.
ac_cases_zip <- ac_place_cases %>%
rename(date = DtCreate) %>%
mutate(date = date %>% substr(1,10) %>% as.Date()) %>%
dplyr::select(c(date, contains("F9"))) %>% # only select zip code data
gather(key = "zipcode", value = "cases", -date) %>%
mutate(cases = ifelse(cases == "<10", "5", cases),
zipcode = zipcode %>% substr(2,6)) %>% # replace cases <10 with 10 and remove the "F" from zipcode names
mutate(cases = as.numeric(cases)) %>%
arrange(date)
# get Alameda County populations by zip code
# census data
acs_vars = readRDS("Simone_Speizer/censusData2018_acs_acs5.rds")
# define a function for pulling census data
pullCensus <- function(variableToPull, county) {
regionString <- paste0("state:06+county:", county)
censusData <- getCensus(
name = "acs/acs5",
vintage = 2018,
region = "block group:*",
regionin = regionString,
vars = variableToPull
) %>%
mutate(blockgroup = paste0(state,county,tract,block_group)) %>%
select_if(!names(.) %in% c("GEO_ID","state","county","tract","block_group","NAME"))
return(censusData)
}
# get population data
ac_fips <- fips("CA", "Alameda") %>% substr(3,5)
ac_pop_zip <- pullCensus("B01003_001E", ac_fips) %>%
left_join(ac_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>%
group_by(zipcode) %>%
summarize(total_pop_zip = sum(B01003_001E))
# join with cases
ac_cases_zip <- ac_cases_zip %>% left_join(ac_pop_zip) %>%
mutate(cases_by_pop = cases / total_pop_zip)
# load the visits data, weighted, version 1. this also contains the unweighted data in the total_visits column
ac_visits_zip_1 <- readRDS(paste0(sg_path, "weekly-patterns/v2/ac_zip_visits_daily_sum_hourly_weighted_v1_03-09-20_05-24-20.rds"))
ac_visits_zip_2 <- readRDS(paste0(sg_path, "weekly-patterns/v2/ac_zip_visits_daily_sum_hourly_weighted_v1_05-25-20_06-21-20.rds"))
ac_visits_zip <- rbind(ac_visits_zip_1, ac_visits_zip_2)
# calculate cumulative visits over time
ac_cum_visits_zip <- ac_visits_zip %>%
dplyr::select(zipcode, date, total_visits) %>%
mutate(total_visits = replace_na(total_visits, 0)) %>% # replace NAs with zero so they don't lead to NAs all following that date
group_by(zipcode) %>%
mutate(cumulative_visits = cumsum(total_visits)) %>%
left_join(ac_pop_zip) %>%
mutate(cum_visits_per_capita = cumulative_visits / total_pop_zip)
# get visits per capita
ac_visits_zip <- ac_visits_zip %>% left_join(ac_pop_zip) %>%
mutate(weighted_visits_per_capita = total_weighted_visits / total_pop_zip,
weighted_visit_hours_per_capita = total_weighted_visit_hours / total_pop_zip,
weighted_visit_hours_per_capita_v2 = total_weighted_visit_hours_v2 / total_pop_zip,
visits_per_capita = total_visits / total_pop_zip,
visit_hours_per_capita = total_visit_hours / total_pop_zip,
visits_per_area_per_capita = total_visits_per_area / total_pop_zip)
# function to make plots (which doesn't seem to work in a loop) and run analyses based on given weeks of data
# note that this sets up to be able to compare to visit hours as well
# visits_zip has the daily visits data, cases_zip the daily cases data, cases_start_date is the first date for cases data to look at, time_window_length is the length of time over which to look at change in cases (in days), visits_lag is the lag on the visits data relative to the cases data (in days), dem_data is the zip code level demographic data, county_name is the name of the county as a string
# returns the coefficient on visits, the p value of that coefficient, and the r squared of the model for 5 different models -- all data and change in cases, only nonzero starting cases and change in cases, only nonzero starting cases and change in log of cases, only >= 10 starting cases and change in cases, and only >= 10 starting cases and change in log of cases
testVisitsPrediction <- function(visits_zip, cases_zip, cases_start_date, time_window_length, visits_lag, dem_data, county_name) {
cases_end_date_inc <- cases_start_date + time_window_length
visits_start_date <- cases_start_date - visits_lag
visits_end_date_exc <- visits_start_date + time_window_length
print(paste0("Cases start date: ", cases_start_date))
print(paste0("Visits start date: ", visits_start_date))
init_cases <- cases_zip %>%
filter(date == cases_start_date) %>%
dplyr::select(zipcode, cases_by_pop, cases) %>%
rename(init_cases_by_pop = cases_by_pop, init_cases = cases) %>%
mutate(log_init_cases_by_pop = log(init_cases_by_pop))
# max cases (end date)
final_cases <- cases_zip %>%
filter(date == cases_end_date_inc) %>%
dplyr::select(zipcode, cases_by_pop, total_pop_zip, cases) %>%
rename(fin_cases_by_pop = cases_by_pop, fin_cases = cases) %>%
mutate(log_fin_cases_by_pop = log(fin_cases_by_pop))
# summarize visits add current and initial cases
visits_cases_change <- visits_zip %>%
filter(date >= visits_start_date & date < visits_end_date_exc) %>%
filter(!is.na(zipcode) & !is.na(total_visits)) %>%
group_by(zipcode) %>%
summarize(total_visits_per_capita = sum(visits_per_capita),
# total_weighted_visits_per_capita = sum(weighted_visits_per_capita),
# total_weighted_visit_hours_per_capita = sum(weighted_visit_hours_per_capita),
# total_weighted_visit_hours_per_capita_v2 = sum(weighted_visit_hours_per_capita_v2),
# total_visit_hours_per_capita = sum(visit_hours_per_capita),
# total_visits_per_area_per_capita = sum(visits_per_area_per_capita),
total_visits = sum(total_visits)) %>%
left_join(final_cases) %>%
left_join(init_cases) %>%
filter(!is.na(fin_cases_by_pop)) %>%
mutate(change_log_cases_by_pop = log_fin_cases_by_pop - log_init_cases_by_pop,
change_cases_by_pop = fin_cases_by_pop - init_cases_by_pop)
visits_cases_change_start_non0 <- visits_cases_change %>% filter(init_cases_by_pop > 0)
# get linear model values
visits_cases_change_model <- lm(change_cases_by_pop ~ total_visits_per_capita, visits_cases_change)
visits_cases_change_model_non0 <- lm(change_cases_by_pop ~ total_visits_per_capita, visits_cases_change_start_non0)
visits_cases_change_model_log <- lm(change_log_cases_by_pop ~ total_visits_per_capita, visits_cases_change_start_non0)
# plots and output the model values
plot_1 <- visits_cases_change %>%
plot_ly() %>%
add_trace(x = ~total_visits_per_capita, y = ~change_cases_by_pop, type = 'scatter', mode = 'markers', text = ~zipcode) %>%
add_trace(x = ~total_visits_per_capita, y = fitted(visits_cases_change_model), mode = 'lines', showlegend = F, text = paste0("R squared: ", summary.lm(visits_cases_change_model)$r.squared, ", slope: ", visits_cases_change_model$coefficients[2])) %>%
layout(xaxis = list(title = paste0('Total visits per person from ', visits_start_date, " through ", visits_end_date_exc - 1)), yaxis = list(title = paste0('Change in cases per person from ', cases_start_date, " to ", cases_end_date_inc)), title = county_name)
print(summary(visits_cases_change_model))
print("Control for demographic variables:")
visits_cases_change_dem <- left_join(visits_cases_change, dem_data)
print(summary(lm(change_cases_by_pop ~ total_visits_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem)))
plot_1
# exclude ones that started with zero
plot_2 <- visits_cases_change_start_non0 %>%
plot_ly() %>%
add_trace(x = ~total_visits_per_capita, y = ~change_cases_by_pop, type = 'scatter', mode = 'markers', text = ~zipcode) %>%
add_trace(x = ~total_visits_per_capita, y = fitted(visits_cases_change_model_non0), mode = 'lines', showlegend = F, text = paste0("R squared: ", summary.lm(visits_cases_change_model_non0)$r.squared, ", slope: ", visits_cases_change_model_non0$coefficients[2])) %>%
layout(xaxis = list(title = paste0('Total visits per person from ', visits_start_date, " through ", visits_end_date_exc - 1)), yaxis = list(title = paste0('Change in cases per person from ', cases_start_date, " to ", cases_end_date_inc)), title = paste0(county_name, "only nonzero starting cases"))
print(summary(visits_cases_change_model_non0))
print("Control for demographic variables:")
visits_cases_change_non0_dem <- left_join(visits_cases_change_start_non0, dem_data)
print(summary(lm(change_cases_by_pop ~ total_visits_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_non0_dem)))
plot_2
# log of cases
plot_3 <- visits_cases_change_start_non0 %>%
plot_ly() %>%
add_trace(x = ~total_visits_per_capita, y = ~change_log_cases_by_pop, type = 'scatter', mode = 'markers', text = ~zipcode) %>%
add_trace(x = ~total_visits_per_capita, y = fitted(visits_cases_change_model_log), mode = 'lines', showlegend = F, text = paste0("R squared: ", summary.lm(visits_cases_change_model_log)$r.squared, ", slope: ", visits_cases_change_model_log$coefficients[2])) %>%
layout(xaxis = list(title = paste0('Total visits per person from ', visits_start_date, " through ", visits_end_date_exc - 1)), yaxis = list(title = paste0('Change in log(cases per person) from ', cases_start_date, " to ", cases_end_date_inc)), title = paste0(county_name, "only nonzero starting cases"))
print(summary(visits_cases_change_model_log))
print("Control for demographic variables:")
print(summary(lm(change_log_cases_by_pop ~ total_visits_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_non0_dem)))
plot_3
# try excluding values that started below 10 cases
visits_cases_change_exc <- visits_cases_change %>% filter(init_cases >= 10)
visits_cases_change_model_exc <- NA
visits_cases_change_model_exc_log <- NA
if (nrow(visits_cases_change_exc) > 0) {
visits_cases_change_model_exc <- lm(change_cases_by_pop ~ total_visits_per_capita, visits_cases_change_exc)
visits_cases_change_model_exc_log <- lm(change_log_cases_by_pop ~ total_visits_per_capita, visits_cases_change_exc)
# plots and output the model values
plot_4 <- visits_cases_change_exc %>%
plot_ly() %>%
add_trace(x = ~total_visits_per_capita, y = ~change_cases_by_pop, type = 'scatter', mode = 'markers', text = ~zipcode) %>%
add_trace(x = ~total_visits_per_capita, y = fitted(visits_cases_change_model_exc), mode = 'lines', showlegend = F, text = paste0("R squared: ", summary.lm(visits_cases_change_model_exc)$r.squared, ", slope: ", visits_cases_change_model_exc$coefficients[2])) %>%
layout(xaxis = list(title = paste0('Total visits per person from ', visits_start_date, " through ", visits_end_date_exc - 1)), yaxis = list(title = paste0('Change in cases per person from ', cases_start_date, " to ", cases_end_date_inc)), title = paste0(county_name, "only starting cases >= 10"))
print(summary(visits_cases_change_model_exc))
print("Control for demographic variables:")
visits_cases_change_dem_exc <- left_join(visits_cases_change_exc, dem_data)
print(summary(lm(change_cases_by_pop ~ total_visits_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem_exc)))
plot_4
# log of cases
plot_5<- visits_cases_change_exc %>%
plot_ly() %>%
add_trace(x = ~total_visits_per_capita, y = ~change_log_cases_by_pop, type = 'scatter', mode = 'markers', text = ~zipcode) %>%
add_trace(x = ~total_visits_per_capita, y = fitted(visits_cases_change_model_exc_log), mode = 'lines', showlegend = F, text = paste0("R squared: ", summary.lm(visits_cases_change_model_exc_log)$r.squared, ", slope: ", visits_cases_change_model_exc_log$coefficients[2])) %>%
layout(xaxis = list(title = paste0('Total visits per person from ', visits_start_date, " through ", visits_end_date_exc - 1)), yaxis = list(title = paste0('Change in log(cases per person) from ', cases_start_date, " to ", cases_end_date_inc)), title = paste0(county_name, "only starting cases >= 10"))
print(summary(visits_cases_change_model_exc_log))
print("Control for demographic variables:")
print(summary(lm(change_log_cases_by_pop ~ total_visits_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem_exc)))
plot_5
}
return_vals <- data.frame(model_type = character(), coef_val = numeric(), p_val = numeric(), r_squared = numeric(), cases_start_date = character(), stringsAsFactors = FALSE)
cases_change <- data.frame("change in cases", summary(visits_cases_change_model)$coefficients[2,1], summary(visits_cases_change_model)$coefficients[2,4], summary(visits_cases_change_model)$r.squared, as.character(cases_start_date), stringsAsFactors = FALSE)
colnames(cases_change) <- c("model_type", "coef_val", "p_val", "r_squared", "cases_start_date")
cases_change_no0 <- data.frame("change in cases, starting above 0", summary(visits_cases_change_model_non0)$coefficients[2,1], summary(visits_cases_change_model_non0)$coefficients[2,4], summary(visits_cases_change_model_non0)$r.squared, as.character(cases_start_date), stringsAsFactors = FALSE)
colnames(cases_change_no0) <- c("model_type", "coef_val", "p_val", "r_squared", "cases_start_date")
cases_change_log <- data.frame("change in log of cases, starting above 0", summary(visits_cases_change_model_log)$coefficients[2,1], summary(visits_cases_change_model_log)$coefficients[2,4], summary(visits_cases_change_model_log)$r.squared, as.character(cases_start_date), stringsAsFactors = FALSE)
colnames(cases_change_log) <- c("model_type", "coef_val", "p_val", "r_squared", "cases_start_date")
return_vals <- rbind(return_vals, cases_change, cases_change_no0, cases_change_log)
# include the later two if there was more than one point in the model
if (nrow(visits_cases_change_exc) > 1) {
cases_change_10 <- data.frame("change in cases, starting above 10", summary(visits_cases_change_model_exc)$coefficients[2,1], summary(visits_cases_change_model_exc)$coefficients[2,4], summary(visits_cases_change_model_exc)$r.squared, as.character(cases_start_date), stringsAsFactors = FALSE)
colnames(cases_change_10) <- c("model_type", "coef_val", "p_val", "r_squared", "cases_start_date")
cases_change_10_log <- data.frame("change in log of cases, starting above 10", summary(visits_cases_change_model_exc_log)$coefficients[2,1], summary(visits_cases_change_model_exc_log)$coefficients[2,4], summary(visits_cases_change_model_exc_log)$r.squared, as.character(cases_start_date), stringsAsFactors = FALSE)
colnames(cases_change_10_log) <- c("model_type", "coef_val", "p_val", "r_squared", "cases_start_date")
return_vals <- rbind(return_vals, cases_change_10, cases_change_10_log)
}
return(return_vals)
}
# pull AC demographic data
zctas_94 <-
zctas(cb = F, starts_with = "94") %>%
st_transform('+proj=longlat +datum=WGS84') %>%
dplyr::select(ZCTA5CE10, geometry)
zctas_95 <-
zctas(cb = F, starts_with = "95") %>%
st_transform('+proj=longlat +datum=WGS84') %>%
dplyr::select(ZCTA5CE10, geometry)
zctas_94_95 <- rbind(zctas_94, zctas_95)
ac_pop_bg <- pullCensus("B01003_001E", ac_fips) %>%
rename(total_pop = B01003_001E)
# average household size
ac_avg_household_size <- pullCensus("B25010_001E", ac_fips) %>%
filter(B25010_001E > 0) %>%
left_join(ac_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>%
left_join(ac_pop_bg) %>%
group_by(zipcode) %>%
summarize(avg_household_size = weighted.mean(B25010_001E, total_pop)) %>%
filter(!is.na(zipcode))
# occupants per room
ac_occupants_zip <- pullCensus("group(B25014)", ac_fips) %>%
dplyr::select(-c(contains("EA"),contains("MA"),contains("M"))) %>%
gather(key = "variable", value = "estimate", -blockgroup) %>%
mutate(label = acs_vars$label[match(variable,acs_vars$name)]) %>%
dplyr::select(-variable) %>%
separate(label, into = c(NA, NA, NA,"occupants per room"), sep = "!!") %>%
filter(!is.na(`occupants per room`)) %>%
group_by(blockgroup, `occupants per room`) %>%
summarize(estimate_tot = sum(estimate)) %>%
spread(key = `occupants per room`, value = estimate_tot) %>%
mutate(total_nums = `0.50 or less occupants per room` + `0.51 to 1.00 occupants per room` + `1.01 to 1.50 occupants per room` + `1.51 to 2.00 occupants per room` + `2.01 or more occupants per room`) %>%
left_join(ac_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>%
group_by(zipcode) %>%
summarize(total_nums = sum(total_nums), total_0.5less = sum(`0.50 or less occupants per room`), total_0.5to1 = sum(`0.51 to 1.00 occupants per room`), total_1to1.5 = sum(`1.01 to 1.50 occupants per room`), total_1.5to2 = sum(`1.51 to 2.00 occupants per room`), total_2more = sum(`2.01 or more occupants per room`)) %>%
mutate(`percent more than 1 occupant` = (total_1to1.5 + total_1.5to2 + total_2more) * 100/ total_nums, `percent less than 1 occupant` = (100-`percent more than 1 occupant`), `percent 0.5 or less occupants` = total_0.5less*100/total_nums, `percent more than 0.5 occupants` = (100-`percent 0.5 or less occupants`), `percent more than 2 occupants` = total_2more*100/total_nums)
# population density
ac_pop_density_zip <- ac_cases_zip %>% filter(date == max(date)) %>%
dplyr::select(zipcode, total_pop_zip) %>%
left_join(zctas_94_95, by = c("zipcode" = "ZCTA5CE10")) %>%
st_as_sf() %>%
mutate(zip_area = st_area(.), pop_density = total_pop_zip / zip_area) %>%
filter(!is.na(pop_density))
# bucketed household size
ac_house_size_zip <- pullCensus("group(B11016)", ac_fips) %>%
dplyr::select(-c(contains("EA"),contains("MA"),contains("M"))) %>%
gather(key = "variable", value = "estimate", -blockgroup) %>%
mutate(label = acs_vars$label[match(variable,acs_vars$name)]) %>%
dplyr::select(-variable) %>%
separate(label, into = c(NA, NA, "type", "size"), sep = "!!") %>%
filter(!is.na(type)) %>%
filter(!is.na(size)) %>%
dplyr::select(-type) %>%
group_by(blockgroup, size) %>%
summarize(`total of this size` = sum(estimate)) %>%
spread(key = size, value = `total of this size`) %>%
mutate(total_nums = `1-person household` + `2-person household` + `3-person household` + `4-person household` + `5-person household`+ `6-person household` + `7-or-more person household`) %>%
left_join(ac_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>%
group_by(zipcode) %>%
summarize(total_nums = sum(total_nums), total_1 = sum(`1-person household`), total_2 = sum(`2-person household`), total_3 = sum(`3-person household`), total_4 = sum(`4-person household`), total_5 = sum(`5-person household`), total_6 = sum(`6-person household`), total_7more = sum(`7-or-more person household`)) %>%
mutate(`percent 5 or more` = (total_5 + total_6 + total_7more)* 100/ total_nums, `percent 1 or 2 only` = (total_1 + total_2)*100/total_nums)
# units in structure
ac_units_zip <- pullCensus("group(B25024)", ac_fips) %>% dplyr::select(-c(contains("EA"),contains("MA"),contains("M"))) %>%
gather(key = "variable", value = "estimate", -blockgroup) %>%
mutate(label = acs_vars$label[match(variable,acs_vars$name)]) %>%
dplyr::select(-variable) %>%
separate(label, into = c(NA, NA, "units"), sep = "!!") %>%
filter(!is.na(units)) %>%
spread(key = units, value = estimate) %>%
mutate(total_nums = `1, attached` + `1, detached` + `10 to 19` + `2` + `20 to 49`+ `3 or 4` + `5 to 9`+ `50 or more`+ `Boat, RV, van, etc.`+ `Mobile home`, total_20more = `20 to 49`+`50 or more`, total_10more = `10 to 19` + `20 to 49`+`50 or more`, total_1 = `1, attached` + `1, detached`) %>%
left_join(ac_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>%
group_by(zipcode) %>%
summarize(total_nums = sum(total_nums), total_20more = sum(total_20more), total_10more = sum(total_20more), total_1_only = sum(total_1)) %>%
mutate(`percent 10 or more units` = total_10more*100/total_nums, `percent 20 or more units` = total_20more*100/total_nums, `percent 1 only` = total_1_only*100/total_nums, `percent more than 1 unit` = (100 - `percent 1 only`))
# income
ac_income_zip <- pullCensus("group(B19001)", ac_fips) %>% dplyr::select(-c(contains("EA"),contains("MA"),contains("M"))) %>%
gather(key = "variable", value = "estimate", -blockgroup) %>%
mutate(label = acs_vars$label[match(variable,acs_vars$name)]) %>%
dplyr::select(-variable) %>%
separate(label, into = c(NA, NA, "income"), sep = "!!") %>%
filter(!is.na(income)) %>%
spread(key = income, value = estimate) %>%
mutate(total_nums = `Less than $10,000` + `$10,000 to $14,999` + `$15,000 to $19,999` + `$20,000 to $24,999` + `$25,000 to $29,999` + `$30,000 to $34,999` + `$35,000 to $39,999` + `$40,000 to $44,999` + `$45,000 to $49,999` + `$50,000 to $59,999` + `$60,000 to $74,999` + `$75,000 to $99,999` + `$100,000 to $124,999` + `$125,000 to $149,999` + `$150,000 to $199,999` + `$200,000 or more`, over_75000 = `$75,000 to $99,999` + `$100,000 to $124,999` + `$125,000 to $149,999` + `$150,000 to $199,999` + `$200,000 or more`, over_100000 = `$100,000 to $124,999` + `$125,000 to $149,999` + `$150,000 to $199,999` + `$200,000 or more`, over_125000 = `$125,000 to $149,999` + `$150,000 to $199,999` + `$200,000 or more`) %>%
left_join(ac_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>%
group_by(zipcode) %>%
summarize(total_nums = sum(total_nums), total_over_75000 = sum(over_75000), total_over_100000 = sum(over_100000), total_over_125000 = sum(over_125000)) %>%
mutate(percent_over_75000 = total_over_75000*100 / total_nums,
percent_under_75000 = (100 - percent_over_75000),
percent_over_100000 = total_over_100000*100 / total_nums,
percent_under_100000 = (100 - percent_over_100000),
percent_over_125000 = total_over_125000*100 / total_nums,
percent_under_125000 = (100 - percent_over_125000))
# median age
ac_median_age_zip <- pullCensus("B01002_001E", ac_fips) %>%
rename(median_age = B01002_001E) %>%
filter(median_age > 0) %>% # remove invalid results
left_join(ac_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>%
left_join(ac_pop_bg) %>%
group_by(zipcode) %>%
summarize(avg_median_age = weighted.mean(median_age, total_pop)) %>%
filter(!is.na(zipcode))
ac_dem_data <- left_join(ac_avg_household_size, ac_pop_density_zip %>% dplyr::select(pop_density, zipcode)) %>%
left_join(ac_occupants_zip %>% dplyr::select(`percent more than 1 occupant`, `percent more than 0.5 occupants`, `percent more than 2 occupants`, zipcode)) %>%
left_join(ac_units_zip %>% dplyr::select(`percent 10 or more units`, `percent more than 1 unit`, zipcode)) %>%
left_join(ac_income_zip %>% dplyr::select(percent_under_75000, percent_under_100000, percent_under_125000, zipcode)) %>%
left_join(ac_median_age_zip) %>%
as.data.frame() %>%
filter(!is.na(zipcode) & !is.na(avg_household_size))
cases_start_date <- as.Date("2020-03-23") # first cases start date to use
visits_lag <- 14 # in days
time_window_length <- 7 # in days
# data frame to store results
model_results_1 <- data.frame(model_type = character(), coef_val = numeric(), p_val = numeric(), r_squared = numeric(), cases_start_date = character(), stringsAsFactors = FALSE)
while(cases_start_date + time_window_length <= max(ac_cases_zip$date)) {
model_results_curr <- testVisitsPrediction(ac_visits_zip, ac_cases_zip, cases_start_date, time_window_length, visits_lag, ac_dem_data, "Alameda")
model_results_1 <- rbind(model_results_1, model_results_curr)
cases_start_date <- cases_start_date + time_window_length # run again with new start date
}
## [1] "Cases start date: 2020-03-23"
## [1] "Visits start date: 2020-03-09"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.068e-04 -7.349e-05 -4.120e-05 6.408e-05 2.498e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -5.004e-05 8.337e-05 -0.600 0.551
## total_visits_per_capita 1.617e-05 1.086e-05 1.488 0.144
##
## Residual standard error: 0.0001049 on 44 degrees of freedom
## Multiple R-squared: 0.04794, Adjusted R-squared: 0.0263
## F-statistic: 2.215 on 1 and 44 DF, p-value: 0.1438
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.059e-04 -7.592e-05 -2.299e-05 2.735e-05 2.713e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.797e-04 5.828e-04 -0.480 0.634
## total_visits_per_capita 1.157e-05 1.785e-05 0.648 0.521
## percent_under_125000 1.267e-06 2.011e-06 0.630 0.533
## avg_household_size 1.498e-05 1.286e-04 0.116 0.908
## pop_density -8.377e-03 1.044e-02 -0.803 0.427
## `percent more than 1 occupant` 2.932e-06 9.044e-06 0.324 0.748
## `percent more than 1 unit` 2.222e-07 2.220e-06 0.100 0.921
## avg_median_age 3.526e-06 6.358e-06 0.555 0.582
##
## Residual standard error: 0.0001083 on 38 degrees of freedom
## Multiple R-squared: 0.1242, Adjusted R-squared: -0.0371
## F-statistic: 0.77 on 7 and 38 DF, p-value: 0.6158
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.021e-04 -6.955e-05 -3.520e-05 3.221e-05 2.387e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -8.730e-05 8.915e-05 -0.979 0.3336
## total_visits_per_capita 1.953e-05 1.142e-05 1.711 0.0953 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 9.947e-05 on 38 degrees of freedom
## Multiple R-squared: 0.0715, Adjusted R-squared: 0.04706
## F-statistic: 2.926 on 1 and 38 DF, p-value: 0.09531
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.152e-04 -6.658e-05 -2.446e-05 4.385e-05 2.341e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -5.324e-04 5.547e-04 -0.960 0.344
## total_visits_per_capita 2.186e-05 1.779e-05 1.229 0.228
## percent_under_125000 1.657e-06 1.898e-06 0.873 0.389
## avg_household_size -3.998e-06 1.219e-04 -0.033 0.974
## pop_density -8.245e-03 1.135e-02 -0.726 0.473
## `percent more than 1 occupant` 7.716e-06 9.511e-06 0.811 0.423
## `percent more than 1 unit` 4.672e-07 2.098e-06 0.223 0.825
## avg_median_age 7.384e-06 6.396e-06 1.154 0.257
##
## Residual standard error: 9.946e-05 on 32 degrees of freedom
## Multiple R-squared: 0.2181, Adjusted R-squared: 0.04712
## F-statistic: 1.275 on 7 and 32 DF, p-value: 0.2935
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.5648 -0.3693 -0.1631 0.3159 1.4305
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.5721 0.4483 -1.276 0.2096
## total_visits_per_capita 0.1172 0.0574 2.042 0.0482 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.5002 on 38 degrees of freedom
## Multiple R-squared: 0.09885, Adjusted R-squared: 0.07513
## F-statistic: 4.168 on 1 and 38 DF, p-value: 0.04817
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.69312 -0.33574 -0.08586 0.25185 0.97640
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.981253 2.696788 -1.105 0.277
## total_visits_per_capita 0.116534 0.086481 1.348 0.187
## percent_under_125000 0.005886 0.009228 0.638 0.528
## avg_household_size 0.034057 0.592696 0.057 0.955
## pop_density -31.770826 55.185870 -0.576 0.569
## `percent more than 1 occupant` 0.052922 0.046239 1.145 0.261
## `percent more than 1 unit` 0.002811 0.010199 0.276 0.785
## avg_median_age 0.040399 0.031096 1.299 0.203
##
## Residual standard error: 0.4836 on 32 degrees of freedom
## Multiple R-squared: 0.2907, Adjusted R-squared: 0.1356
## F-statistic: 1.874 on 7 and 32 DF, p-value: 0.1071
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
##
## Coefficients: (1 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0002004 NA NA NA
## total_visits_per_capita NA NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
##
## Coefficients: (7 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0002004 NA NA NA
## total_visits_per_capita NA NA NA NA
## percent_under_125000 NA NA NA NA
## avg_household_size NA NA NA NA
## pop_density NA NA NA NA
## `percent more than 1 occupant` NA NA NA NA
## `percent more than 1 unit` NA NA NA NA
## avg_median_age NA NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
##
## Coefficients: (1 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.5878 NA NA NA
## total_visits_per_capita NA NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
##
## Coefficients: (7 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.5878 NA NA NA
## total_visits_per_capita NA NA NA NA
## percent_under_125000 NA NA NA NA
## avg_household_size NA NA NA NA
## pop_density NA NA NA NA
## `percent more than 1 occupant` NA NA NA NA
## `percent more than 1 unit` NA NA NA NA
## avg_median_age NA NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
##
## [1] "Cases start date: 2020-03-30"
## [1] "Visits start date: 2020-03-16"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.109e-04 -1.207e-04 -3.550e-05 3.002e-05 5.100e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -6.022e-05 1.265e-04 -0.476 0.6364
## total_visits_per_capita 5.632e-05 2.943e-05 1.914 0.0621 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001725 on 44 degrees of freedom
## Multiple R-squared: 0.07686, Adjusted R-squared: 0.05587
## F-statistic: 3.663 on 1 and 44 DF, p-value: 0.06215
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.975e-04 -9.189e-05 -8.398e-06 8.461e-05 2.862e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.217e-04 7.685e-04 0.158 0.875000
## total_visits_per_capita -3.883e-05 4.084e-05 -0.951 0.347732
## percent_under_125000 7.031e-06 2.687e-06 2.617 0.012666 *
## avg_household_size 1.455e-04 1.655e-04 0.880 0.384611
## pop_density -6.064e-02 1.517e-02 -3.996 0.000285 ***
## `percent more than 1 occupant` -1.278e-05 1.182e-05 -1.080 0.286777
## `percent more than 1 unit` 1.808e-06 2.951e-06 0.613 0.543712
## avg_median_age -1.155e-05 8.540e-06 -1.352 0.184395
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001436 on 38 degrees of freedom
## Multiple R-squared: 0.4473, Adjusted R-squared: 0.3455
## F-statistic: 4.393 on 7 and 38 DF, p-value: 0.00118
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.100e-04 -9.143e-05 -2.046e-05 4.448e-05 4.478e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.213e-04 1.140e-04 -1.942 0.05887 .
## total_visits_per_capita 8.958e-05 2.620e-05 3.419 0.00141 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001455 on 42 degrees of freedom
## Multiple R-squared: 0.2177, Adjusted R-squared: 0.1991
## F-statistic: 11.69 on 1 and 42 DF, p-value: 0.00141
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.657e-04 -9.178e-05 -9.541e-06 4.867e-05 2.885e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 8.015e-05 7.121e-04 0.113 0.91102
## total_visits_per_capita -9.111e-06 4.016e-05 -0.227 0.82180
## percent_under_125000 5.744e-06 2.568e-06 2.236 0.03162 *
## avg_household_size 6.894e-05 1.554e-04 0.443 0.66008
## pop_density -5.150e-02 1.602e-02 -3.215 0.00275 **
## `percent more than 1 occupant` -3.806e-06 1.131e-05 -0.337 0.73833
## `percent more than 1 unit` 4.344e-07 2.804e-06 0.155 0.87774
## avg_median_age -7.304e-06 8.066e-06 -0.905 0.37125
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001323 on 36 degrees of freedom
## Multiple R-squared: 0.4459, Adjusted R-squared: 0.3381
## F-statistic: 4.138 on 7 and 36 DF, p-value: 0.001978
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.68122 -0.25019 0.05312 0.23317 0.57918
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.72842 0.26327 -2.767 0.00838 **
## total_visits_per_capita 0.29279 0.06054 4.836 1.81e-05 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.3362 on 42 degrees of freedom
## Multiple R-squared: 0.3577, Adjusted R-squared: 0.3424
## F-statistic: 23.39 on 1 and 42 DF, p-value: 1.807e-05
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.54049 -0.17483 -0.04517 0.09964 0.61872
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.000e-01 1.696e+00 -0.177 0.86058
## total_visits_per_capita 8.431e-02 9.563e-02 0.882 0.38380
## percent_under_125000 6.194e-03 6.116e-03 1.013 0.31797
## avg_household_size 1.910e-01 3.702e-01 0.516 0.60912
## pop_density -1.082e+02 3.814e+01 -2.838 0.00742 **
## `percent more than 1 occupant` 6.530e-03 2.692e-02 0.243 0.80972
## `percent more than 1 unit` 4.991e-03 6.677e-03 0.747 0.45964
## avg_median_age -1.046e-02 1.921e-02 -0.545 0.58944
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.315 on 36 degrees of freedom
## Multiple R-squared: 0.5166, Adjusted R-squared: 0.4226
## F-statistic: 5.496 on 7 and 36 DF, p-value: 0.0002348
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.322e-04 -9.107e-05 -6.920e-05 1.250e-04 2.313e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.620e-04 4.092e-04 -0.396 0.700
## total_visits_per_capita 9.120e-05 8.628e-05 1.057 0.313
##
## Residual standard error: 0.0001596 on 11 degrees of freedom
## Multiple R-squared: 0.09221, Adjusted R-squared: 0.009682
## F-statistic: 1.117 on 1 and 11 DF, p-value: 0.3132
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## 1 2 3 4 5 6 7
## -9.146e-05 -3.054e-05 6.911e-05 -1.390e-05 1.458e-04 -8.110e-05 -1.775e-06
## 8 9 10 11 12 13
## -3.132e-05 -2.450e-06 -4.450e-05 1.558e-04 -4.655e-05 -2.706e-05
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -5.527e-03 2.689e-03 -2.055 0.0950 .
## total_visits_per_capita 9.561e-05 1.368e-04 0.699 0.5157
## percent_under_125000 1.625e-05 5.921e-06 2.745 0.0406 *
## avg_household_size -4.643e-04 6.770e-04 -0.686 0.5234
## pop_density -1.673e-01 1.216e-01 -1.376 0.2271
## `percent more than 1 occupant` 1.023e-04 8.416e-05 1.215 0.2785
## `percent more than 1 unit` -7.183e-07 1.259e-05 -0.057 0.9567
## avg_median_age 1.316e-04 7.237e-05 1.818 0.1287
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001202 on 5 degrees of freedom
## Multiple R-squared: 0.766, Adjusted R-squared: 0.4384
## F-statistic: 2.338 on 7 and 5 DF, p-value: 0.1834
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.33915 -0.17259 -0.05682 0.15421 0.39574
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.4547 0.6062 -0.750 0.469
## total_visits_per_capita 0.2247 0.1278 1.758 0.107
##
## Residual standard error: 0.2364 on 11 degrees of freedom
## Multiple R-squared: 0.2193, Adjusted R-squared: 0.1484
## F-statistic: 3.09 on 1 and 11 DF, p-value: 0.1065
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## 1 2 3 4 5 6 7 8
## -0.10466 -0.10402 0.03989 -0.04984 0.32826 -0.05850 0.03969 -0.20406
## 9 10 11 12 13
## 0.06758 0.02129 0.21454 -0.15994 -0.03024
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -8.237e+00 5.080e+00 -1.621 0.166
## total_visits_per_capita 2.015e-01 2.584e-01 0.780 0.471
## percent_under_125000 2.062e-02 1.119e-02 1.843 0.125
## avg_household_size -6.399e-02 1.279e+00 -0.050 0.962
## pop_density -1.479e+02 2.296e+02 -0.644 0.548
## `percent more than 1 occupant` 8.043e-02 1.590e-01 0.506 0.634
## `percent more than 1 unit` 5.089e-03 2.379e-02 0.214 0.839
## avg_median_age 1.575e-01 1.367e-01 1.152 0.301
##
## Residual standard error: 0.2271 on 5 degrees of freedom
## Multiple R-squared: 0.6726, Adjusted R-squared: 0.2143
## F-statistic: 1.468 on 7 and 5 DF, p-value: 0.3477
##
## [1] "Cases start date: 2020-04-06"
## [1] "Visits start date: 2020-03-23"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.913e-04 -1.046e-04 -4.534e-05 1.032e-04 3.594e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.827e-04 1.040e-04 -1.756 0.08602 .
## total_visits_per_capita 7.607e-05 2.351e-05 3.235 0.00231 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001413 on 44 degrees of freedom
## Multiple R-squared: 0.1922, Adjusted R-squared: 0.1738
## F-statistic: 10.47 on 1 and 44 DF, p-value: 0.00231
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.241e-04 -8.057e-05 -2.549e-05 6.255e-05 3.352e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.026e-04 6.831e-04 -0.150 0.8814
## total_visits_per_capita 1.302e-05 3.404e-05 0.383 0.7041
## percent_under_125000 5.750e-06 2.322e-06 2.476 0.0178 *
## avg_household_size 5.565e-05 1.450e-04 0.384 0.7032
## pop_density -2.268e-02 1.314e-02 -1.726 0.0925 .
## `percent more than 1 occupant` -1.585e-06 1.051e-05 -0.151 0.8810
## `percent more than 1 unit` -1.112e-06 2.621e-06 -0.424 0.6737
## avg_median_age -5.356e-06 7.873e-06 -0.680 0.5005
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001266 on 38 degrees of freedom
## Multiple R-squared: 0.4403, Adjusted R-squared: 0.3372
## F-statistic: 4.271 on 7 and 38 DF, p-value: 0.001446
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.913e-04 -1.046e-04 -4.534e-05 1.032e-04 3.594e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.827e-04 1.040e-04 -1.756 0.08602 .
## total_visits_per_capita 7.607e-05 2.351e-05 3.235 0.00231 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001413 on 44 degrees of freedom
## Multiple R-squared: 0.1922, Adjusted R-squared: 0.1738
## F-statistic: 10.47 on 1 and 44 DF, p-value: 0.00231
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.241e-04 -8.057e-05 -2.549e-05 6.255e-05 3.352e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.026e-04 6.831e-04 -0.150 0.8814
## total_visits_per_capita 1.302e-05 3.404e-05 0.383 0.7041
## percent_under_125000 5.750e-06 2.322e-06 2.476 0.0178 *
## avg_household_size 5.565e-05 1.450e-04 0.384 0.7032
## pop_density -2.268e-02 1.314e-02 -1.726 0.0925 .
## `percent more than 1 occupant` -1.585e-06 1.051e-05 -0.151 0.8810
## `percent more than 1 unit` -1.112e-06 2.621e-06 -0.424 0.6737
## avg_median_age -5.356e-06 7.873e-06 -0.680 0.5005
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001266 on 38 degrees of freedom
## Multiple R-squared: 0.4403, Adjusted R-squared: 0.3372
## F-statistic: 4.271 on 7 and 38 DF, p-value: 0.001446
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.33233 -0.19322 -0.08256 0.13873 0.77624
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.34256 0.20614 -1.662 0.10367
## total_visits_per_capita 0.14748 0.04659 3.166 0.00281 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.2799 on 44 degrees of freedom
## Multiple R-squared: 0.1855, Adjusted R-squared: 0.167
## F-statistic: 10.02 on 1 and 44 DF, p-value: 0.002806
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.36865 -0.19135 -0.04087 0.09633 0.76207
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.943228 1.509189 -1.288 0.206
## total_visits_per_capita 0.087066 0.075198 1.158 0.254
## percent_under_125000 0.005283 0.005129 1.030 0.310
## avg_household_size 0.391323 0.320292 1.222 0.229
## pop_density 3.702724 29.028637 0.128 0.899
## `percent more than 1 occupant` -0.014654 0.023224 -0.631 0.532
## `percent more than 1 unit` 0.004819 0.005790 0.832 0.410
## avg_median_age 0.008619 0.017395 0.495 0.623
##
## Residual standard error: 0.2796 on 38 degrees of freedom
## Multiple R-squared: 0.2983, Adjusted R-squared: 0.169
## F-statistic: 2.308 on 7 and 38 DF, p-value: 0.04602
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.925e-04 -1.185e-04 -4.579e-05 1.155e-04 3.563e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.356e-05 2.323e-04 -0.058 0.954
## total_visits_per_capita 4.481e-05 4.855e-05 0.923 0.364
##
## Residual standard error: 0.0001533 on 28 degrees of freedom
## Multiple R-squared: 0.02953, Adjusted R-squared: -0.00513
## F-statistic: 0.852 on 1 and 28 DF, p-value: 0.3639
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.870e-04 -7.465e-05 -1.602e-05 5.033e-05 3.064e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 8.558e-04 8.721e-04 0.981 0.3371
## total_visits_per_capita -2.150e-05 5.288e-05 -0.407 0.6882
## percent_under_125000 5.366e-06 2.755e-06 1.948 0.0643 .
## avg_household_size -8.693e-06 2.216e-04 -0.039 0.9691
## pop_density -4.095e-02 2.396e-02 -1.709 0.1015
## `percent more than 1 occupant` 1.646e-07 1.765e-05 0.009 0.9926
## `percent more than 1 unit` -1.829e-06 3.555e-06 -0.514 0.6120
## avg_median_age -1.896e-05 1.115e-05 -1.700 0.1031
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001288 on 22 degrees of freedom
## Multiple R-squared: 0.4617, Adjusted R-squared: 0.2904
## F-statistic: 2.695 on 7 and 22 DF, p-value: 0.03541
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.34597 -0.18974 -0.05812 0.12537 0.52224
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.34530 0.38121 -0.906 0.3728
## total_visits_per_capita 0.15077 0.07965 1.893 0.0688 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.2515 on 28 degrees of freedom
## Multiple R-squared: 0.1134, Adjusted R-squared: 0.08178
## F-statistic: 3.583 on 1 and 28 DF, p-value: 0.06875
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.26653 -0.17445 -0.00980 0.08331 0.59507
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.375788 1.700943 0.809 0.427
## total_visits_per_capita 0.064373 0.103136 0.624 0.539
## percent_under_125000 0.001274 0.005373 0.237 0.815
## avg_household_size -0.115079 0.432200 -0.266 0.793
## pop_density -24.002901 46.739356 -0.514 0.613
## `percent more than 1 occupant` 0.014368 0.034419 0.417 0.680
## `percent more than 1 unit` -0.002373 0.006935 -0.342 0.735
## avg_median_age -0.027107 0.021752 -1.246 0.226
##
## Residual standard error: 0.2512 on 22 degrees of freedom
## Multiple R-squared: 0.3051, Adjusted R-squared: 0.08394
## F-statistic: 1.38 on 7 and 22 DF, p-value: 0.2628
##
## [1] "Cases start date: 2020-04-13"
## [1] "Visits start date: 2020-03-30"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.577e-04 -1.317e-04 -5.181e-05 5.600e-05 1.161e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.892e-04 1.388e-04 -1.363 0.1797
## total_visits_per_capita 8.605e-05 3.267e-05 2.634 0.0116 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002303 on 44 degrees of freedom
## Multiple R-squared: 0.1362, Adjusted R-squared: 0.1166
## F-statistic: 6.938 on 1 and 44 DF, p-value: 0.0116
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.973e-04 -1.080e-04 -2.874e-05 4.025e-05 9.933e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 6.058e-04 1.138e-03 0.532 0.5975
## total_visits_per_capita -1.479e-05 5.614e-05 -0.263 0.7936
## percent_under_125000 8.596e-06 4.057e-06 2.119 0.0407 *
## avg_household_size -2.869e-04 2.430e-04 -1.181 0.2451
## pop_density -2.703e-02 2.377e-02 -1.137 0.2626
## `percent more than 1 occupant` 3.183e-05 1.741e-05 1.828 0.0754 .
## `percent more than 1 unit` -6.925e-06 4.334e-06 -1.598 0.1183
## avg_median_age 3.084e-07 1.277e-05 0.024 0.9809
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002106 on 38 degrees of freedom
## Multiple R-squared: 0.3759, Adjusted R-squared: 0.261
## F-statistic: 3.27 on 7 and 38 DF, p-value: 0.008103
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.577e-04 -1.317e-04 -5.181e-05 5.600e-05 1.161e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.892e-04 1.388e-04 -1.363 0.1797
## total_visits_per_capita 8.605e-05 3.267e-05 2.634 0.0116 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002303 on 44 degrees of freedom
## Multiple R-squared: 0.1362, Adjusted R-squared: 0.1166
## F-statistic: 6.938 on 1 and 44 DF, p-value: 0.0116
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.973e-04 -1.080e-04 -2.874e-05 4.025e-05 9.933e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 6.058e-04 1.138e-03 0.532 0.5975
## total_visits_per_capita -1.479e-05 5.614e-05 -0.263 0.7936
## percent_under_125000 8.596e-06 4.057e-06 2.119 0.0407 *
## avg_household_size -2.869e-04 2.430e-04 -1.181 0.2451
## pop_density -2.703e-02 2.377e-02 -1.137 0.2626
## `percent more than 1 occupant` 3.183e-05 1.741e-05 1.828 0.0754 .
## `percent more than 1 unit` -6.925e-06 4.334e-06 -1.598 0.1183
## avg_median_age 3.084e-07 1.277e-05 0.024 0.9809
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002106 on 38 degrees of freedom
## Multiple R-squared: 0.3759, Adjusted R-squared: 0.261
## F-statistic: 3.27 on 7 and 38 DF, p-value: 0.008103
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.29290 -0.13603 -0.02956 0.06329 0.70589
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.16692 0.13042 -1.280 0.20729
## total_visits_per_capita 0.08855 0.03070 2.884 0.00606 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.2164 on 44 degrees of freedom
## Multiple R-squared: 0.159, Adjusted R-squared: 0.1399
## F-statistic: 8.317 on 1 and 44 DF, p-value: 0.006057
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.26307 -0.08973 -0.03162 0.03439 0.64884
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.091380 1.017672 -0.090 0.9289
## total_visits_per_capita 0.036540 0.050214 0.728 0.4713
## percent_under_125000 0.005099 0.003629 1.405 0.1681
## avg_household_size -0.246772 0.217371 -1.135 0.2634
## pop_density 5.122509 21.258546 0.241 0.8109
## `percent more than 1 occupant` 0.035060 0.015574 2.251 0.0302 *
## `percent more than 1 unit` -0.003794 0.003876 -0.979 0.3339
## avg_median_age 0.010457 0.011426 0.915 0.3659
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1884 on 38 degrees of freedom
## Multiple R-squared: 0.4497, Adjusted R-squared: 0.3483
## F-statistic: 4.435 on 7 and 38 DF, p-value: 0.001101
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.895e-04 -1.338e-04 -4.668e-05 3.076e-05 1.157e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.831e-04 3.218e-04 -0.880 0.386
## total_visits_per_capita 1.103e-04 6.997e-05 1.576 0.125
##
## Residual standard error: 0.0002584 on 31 degrees of freedom
## Multiple R-squared: 0.07415, Adjusted R-squared: 0.04429
## F-statistic: 2.483 on 1 and 31 DF, p-value: 0.1252
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.223e-04 -1.166e-04 -3.753e-05 3.165e-05 8.624e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 9.544e-04 1.447e-03 0.659 0.5156
## total_visits_per_capita -6.964e-05 1.089e-04 -0.639 0.5283
## percent_under_125000 1.005e-05 4.913e-06 2.047 0.0514 .
## avg_household_size -4.046e-04 3.494e-04 -1.158 0.2577
## pop_density -4.579e-02 3.612e-02 -1.268 0.2166
## `percent more than 1 occupant` 4.214e-05 2.615e-05 1.612 0.1196
## `percent more than 1 unit` -1.022e-05 5.991e-06 -1.706 0.1003
## avg_median_age 6.849e-06 1.831e-05 0.374 0.7115
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002389 on 25 degrees of freedom
## Multiple R-squared: 0.3615, Adjusted R-squared: 0.1827
## F-statistic: 2.022 on 7 and 25 DF, p-value: 0.09222
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.32570 -0.12637 -0.03891 0.04850 0.70407
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.27536 0.26028 -1.058 0.2983
## total_visits_per_capita 0.11574 0.05659 2.045 0.0494 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.209 on 31 degrees of freedom
## Multiple R-squared: 0.1189, Adjusted R-squared: 0.09048
## F-statistic: 4.184 on 1 and 31 DF, p-value: 0.04939
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.23917 -0.08182 -0.03794 0.03267 0.56558
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.284805 1.149357 0.248 0.806
## total_visits_per_capita -0.008769 0.086492 -0.101 0.920
## percent_under_125000 0.006361 0.003902 1.630 0.116
## avg_household_size -0.265916 0.277491 -0.958 0.347
## pop_density -0.740556 28.687991 -0.026 0.980
## `percent more than 1 occupant` 0.034742 0.020765 1.673 0.107
## `percent more than 1 unit` -0.007158 0.004758 -1.504 0.145
## avg_median_age 0.009394 0.014541 0.646 0.524
##
## Residual standard error: 0.1898 on 25 degrees of freedom
## Multiple R-squared: 0.4139, Adjusted R-squared: 0.2498
## F-statistic: 2.522 on 7 and 25 DF, p-value: 0.04153
##
## [1] "Cases start date: 2020-04-20"
## [1] "Visits start date: 2020-04-06"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.754e-04 -1.115e-04 -3.454e-05 2.709e-05 1.113e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.353e-04 1.301e-04 -1.040 0.304
## total_visits_per_capita 6.940e-05 3.296e-05 2.105 0.041 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002055 on 44 degrees of freedom
## Multiple R-squared: 0.09152, Adjusted R-squared: 0.07087
## F-statistic: 4.433 on 1 and 44 DF, p-value: 0.041
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.905e-04 -7.521e-05 -3.391e-05 4.995e-05 9.173e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.524e-03 1.008e-03 1.512 0.1388
## total_visits_per_capita 1.784e-05 4.802e-05 0.371 0.7124
## percent_under_125000 6.577e-06 3.437e-06 1.914 0.0632 .
## avg_household_size -4.260e-04 2.195e-04 -1.941 0.0597 .
## pop_density -3.528e-02 1.987e-02 -1.776 0.0838 .
## `percent more than 1 occupant` 2.785e-05 1.539e-05 1.810 0.0782 .
## `percent more than 1 unit` -7.615e-06 3.888e-06 -1.958 0.0575 .
## avg_median_age -1.223e-05 1.108e-05 -1.104 0.2766
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001872 on 38 degrees of freedom
## Multiple R-squared: 0.3489, Adjusted R-squared: 0.2289
## F-statistic: 2.908 on 7 and 38 DF, p-value: 0.01546
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.754e-04 -1.115e-04 -3.454e-05 2.709e-05 1.113e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.353e-04 1.301e-04 -1.040 0.304
## total_visits_per_capita 6.940e-05 3.296e-05 2.105 0.041 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002055 on 44 degrees of freedom
## Multiple R-squared: 0.09152, Adjusted R-squared: 0.07087
## F-statistic: 4.433 on 1 and 44 DF, p-value: 0.041
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.905e-04 -7.521e-05 -3.391e-05 4.995e-05 9.173e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.524e-03 1.008e-03 1.512 0.1388
## total_visits_per_capita 1.784e-05 4.802e-05 0.371 0.7124
## percent_under_125000 6.577e-06 3.437e-06 1.914 0.0632 .
## avg_household_size -4.260e-04 2.195e-04 -1.941 0.0597 .
## pop_density -3.528e-02 1.987e-02 -1.776 0.0838 .
## `percent more than 1 occupant` 2.785e-05 1.539e-05 1.810 0.0782 .
## `percent more than 1 unit` -7.615e-06 3.888e-06 -1.958 0.0575 .
## avg_median_age -1.223e-05 1.108e-05 -1.104 0.2766
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001872 on 38 degrees of freedom
## Multiple R-squared: 0.3489, Adjusted R-squared: 0.2289
## F-statistic: 2.908 on 7 and 38 DF, p-value: 0.01546
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.14030 -0.06907 -0.03088 0.04138 0.33001
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.10040 0.06794 -1.478 0.14661
## total_visits_per_capita 0.05644 0.01722 3.278 0.00205 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1073 on 44 degrees of freedom
## Multiple R-squared: 0.1962, Adjusted R-squared: 0.178
## F-statistic: 10.74 on 1 and 44 DF, p-value: 0.002049
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.183701 -0.065891 0.002695 0.032633 0.284958
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.293551 0.538239 0.545 0.5887
## total_visits_per_capita 0.055689 0.025644 2.172 0.0362 *
## percent_under_125000 0.002018 0.001836 1.100 0.2785
## avg_household_size -0.169193 0.117213 -1.443 0.1571
## pop_density -6.199466 10.611418 -0.584 0.5625
## `percent more than 1 occupant` 0.012543 0.008218 1.526 0.1352
## `percent more than 1 unit` -0.001476 0.002077 -0.711 0.4814
## avg_median_age -0.001371 0.005917 -0.232 0.8180
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.09996 on 38 degrees of freedom
## Multiple R-squared: 0.3977, Adjusted R-squared: 0.2868
## F-statistic: 3.585 on 7 and 38 DF, p-value: 0.004658
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.788e-04 -1.261e-04 -7.176e-05 3.339e-05 1.078e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.197e-05 2.979e-04 0.074 0.942
## total_visits_per_capita 3.685e-05 7.000e-05 0.526 0.602
##
## Residual standard error: 0.0002339 on 32 degrees of freedom
## Multiple R-squared: 0.008585, Adjusted R-squared: -0.0224
## F-statistic: 0.2771 on 1 and 32 DF, p-value: 0.6022
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.854e-04 -1.174e-04 -5.299e-05 5.336e-05 8.040e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.943e-03 1.270e-03 1.530 0.1381
## total_visits_per_capita -3.861e-05 1.007e-04 -0.383 0.7045
## percent_under_125000 7.694e-06 4.175e-06 1.843 0.0768 .
## avg_household_size -5.321e-04 3.091e-04 -1.722 0.0970 .
## pop_density -5.345e-02 2.947e-02 -1.814 0.0813 .
## `percent more than 1 occupant` 3.510e-05 2.256e-05 1.556 0.1319
## `percent more than 1 unit` -9.259e-06 5.333e-06 -1.736 0.0944 .
## avg_median_age -9.061e-06 1.631e-05 -0.556 0.5833
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002123 on 26 degrees of freedom
## Multiple R-squared: 0.3365, Adjusted R-squared: 0.1578
## F-statistic: 1.884 on 7 and 26 DF, p-value: 0.1135
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.15772 -0.06566 -0.01973 0.06574 0.29150
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.09393 0.14396 0.652 0.519
## total_visits_per_capita 0.01500 0.03383 0.443 0.661
##
## Residual standard error: 0.113 on 32 degrees of freedom
## Multiple R-squared: 0.006103, Adjusted R-squared: -0.02496
## F-statistic: 0.1965 on 1 and 32 DF, p-value: 0.6606
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.19405 -0.05393 -0.01391 0.03399 0.25158
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.681162 0.645432 1.055 0.301
## total_visits_per_capita 0.027812 0.051153 0.544 0.591
## percent_under_125000 0.002213 0.002121 1.043 0.306
## avg_household_size -0.177948 0.157052 -1.133 0.268
## pop_density -6.994159 14.973481 -0.467 0.644
## `percent more than 1 occupant` 0.009237 0.011462 0.806 0.428
## `percent more than 1 unit` -0.001809 0.002710 -0.668 0.510
## avg_median_age -0.006590 0.008287 -0.795 0.434
##
## Residual standard error: 0.1079 on 26 degrees of freedom
## Multiple R-squared: 0.2649, Adjusted R-squared: 0.06695
## F-statistic: 1.338 on 7 and 26 DF, p-value: 0.2726
##
## [1] "Cases start date: 2020-04-27"
## [1] "Visits start date: 2020-04-13"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.777e-04 -9.729e-05 -5.981e-05 5.238e-05 4.977e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.854e-04 9.983e-05 -1.857 0.07004 .
## total_visits_per_capita 7.119e-05 2.183e-05 3.261 0.00215 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001575 on 44 degrees of freedom
## Multiple R-squared: 0.1947, Adjusted R-squared: 0.1764
## F-statistic: 10.64 on 1 and 44 DF, p-value: 0.002147
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.062e-04 -8.515e-05 -1.882e-05 4.073e-05 2.762e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.779e-04 6.844e-04 -0.552 0.584
## total_visits_per_capita 1.113e-05 2.895e-05 0.384 0.703
## percent_under_125000 2.720e-06 2.443e-06 1.114 0.272
## avg_household_size -6.039e-05 1.469e-04 -0.411 0.683
## pop_density 1.003e-03 1.352e-02 0.074 0.941
## `percent more than 1 occupant` 2.624e-05 1.041e-05 2.522 0.016 *
## `percent more than 1 unit` -9.665e-07 2.614e-06 -0.370 0.714
## avg_median_age 8.080e-06 7.575e-06 1.067 0.293
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001266 on 38 degrees of freedom
## Multiple R-squared: 0.5507, Adjusted R-squared: 0.468
## F-statistic: 6.655 on 7 and 38 DF, p-value: 3.671e-05
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.777e-04 -9.729e-05 -5.981e-05 5.238e-05 4.977e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.854e-04 9.983e-05 -1.857 0.07004 .
## total_visits_per_capita 7.119e-05 2.183e-05 3.261 0.00215 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001575 on 44 degrees of freedom
## Multiple R-squared: 0.1947, Adjusted R-squared: 0.1764
## F-statistic: 10.64 on 1 and 44 DF, p-value: 0.002147
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.062e-04 -8.515e-05 -1.882e-05 4.073e-05 2.762e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.779e-04 6.844e-04 -0.552 0.584
## total_visits_per_capita 1.113e-05 2.895e-05 0.384 0.703
## percent_under_125000 2.720e-06 2.443e-06 1.114 0.272
## avg_household_size -6.039e-05 1.469e-04 -0.411 0.683
## pop_density 1.003e-03 1.352e-02 0.074 0.941
## `percent more than 1 occupant` 2.624e-05 1.041e-05 2.522 0.016 *
## `percent more than 1 unit` -9.665e-07 2.614e-06 -0.370 0.714
## avg_median_age 8.080e-06 7.575e-06 1.067 0.293
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001266 on 38 degrees of freedom
## Multiple R-squared: 0.5507, Adjusted R-squared: 0.468
## F-statistic: 6.655 on 7 and 38 DF, p-value: 3.671e-05
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.16184 -0.08065 -0.04651 0.04044 0.58123
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.06620 0.09888 -0.669 0.5067
## total_visits_per_capita 0.04472 0.02162 2.068 0.0445 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.156 on 44 degrees of freedom
## Multiple R-squared: 0.08861, Adjusted R-squared: 0.06789
## F-statistic: 4.278 on 1 and 44 DF, p-value: 0.04452
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.14174 -0.08094 -0.04972 0.02702 0.60497
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.4586019 0.8748162 -0.524 0.603
## total_visits_per_capita 0.0509959 0.0370091 1.378 0.176
## percent_under_125000 0.0005486 0.0031226 0.176 0.861
## avg_household_size -0.0028093 0.1877740 -0.015 0.988
## pop_density 18.2005460 17.2795584 1.053 0.299
## `percent more than 1 occupant` 0.0044301 0.0133009 0.333 0.741
## `percent more than 1 unit` 0.0000646 0.0033414 0.019 0.985
## avg_median_age 0.0065847 0.0096837 0.680 0.501
##
## Residual standard error: 0.1618 on 38 degrees of freedom
## Multiple R-squared: 0.1531, Adjusted R-squared: -0.002888
## F-statistic: 0.9815 on 7 and 38 DF, p-value: 0.4589
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.832e-04 -1.088e-04 -6.531e-05 6.538e-05 4.868e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.447e-04 2.273e-04 -1.516 0.1392
## total_visits_per_capita 1.035e-04 4.613e-05 2.244 0.0319 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001729 on 32 degrees of freedom
## Multiple R-squared: 0.136, Adjusted R-squared: 0.109
## F-statistic: 5.036 on 1 and 32 DF, p-value: 0.03188
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.172e-04 -8.677e-05 7.818e-06 6.038e-05 2.855e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.723e-04 7.579e-04 -0.491 0.627
## total_visits_per_capita 2.299e-06 5.190e-05 0.044 0.965
## percent_under_125000 2.543e-06 2.535e-06 1.003 0.325
## avg_household_size 2.694e-05 1.716e-04 0.157 0.876
## pop_density -3.575e-03 1.739e-02 -0.206 0.839
## `percent more than 1 occupant` 2.136e-05 1.332e-05 1.604 0.121
## `percent more than 1 unit` 1.414e-06 3.140e-06 0.450 0.656
## avg_median_age 1.514e-06 9.555e-06 0.158 0.875
##
## Residual standard error: 0.0001249 on 26 degrees of freedom
## Multiple R-squared: 0.6336, Adjusted R-squared: 0.5349
## F-statistic: 6.422 on 7 and 26 DF, p-value: 0.0001908
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.14786 -0.06316 -0.03267 0.06739 0.25531
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.06832 0.13633 -0.501 0.620
## total_visits_per_capita 0.04239 0.02767 1.532 0.135
##
## Residual standard error: 0.1037 on 32 degrees of freedom
## Multiple R-squared: 0.06834, Adjusted R-squared: 0.03923
## F-statistic: 2.347 on 1 and 32 DF, p-value: 0.1353
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.108159 -0.054392 -0.008662 0.034373 0.231112
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.3370771 0.5057060 -0.667 0.511
## total_visits_per_capita 0.0369093 0.0346346 1.066 0.296
## percent_under_125000 -0.0004162 0.0016915 -0.246 0.808
## avg_household_size 0.0684040 0.1144946 0.597 0.555
## pop_density 8.5383626 11.6049447 0.736 0.468
## `percent more than 1 occupant` 0.0037451 0.0088894 0.421 0.677
## `percent more than 1 unit` 0.0030470 0.0020954 1.454 0.158
## avg_median_age -0.0011763 0.0063760 -0.184 0.855
##
## Residual standard error: 0.08336 on 26 degrees of freedom
## Multiple R-squared: 0.511, Adjusted R-squared: 0.3794
## F-statistic: 3.881 on 7 and 26 DF, p-value: 0.005082
##
## [1] "Cases start date: 2020-05-04"
## [1] "Visits start date: 2020-04-20"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.234e-04 -1.354e-04 -2.627e-05 7.060e-05 7.530e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.173e-04 1.217e-04 -1.786 0.08105 .
## total_visits_per_capita 8.577e-05 2.766e-05 3.100 0.00337 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001901 on 44 degrees of freedom
## Multiple R-squared: 0.1793, Adjusted R-squared: 0.1606
## F-statistic: 9.613 on 1 and 44 DF, p-value: 0.003366
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.816e-04 -6.621e-05 -8.290e-06 6.271e-05 3.642e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.395e-04 7.180e-04 -0.334 0.74052
## total_visits_per_capita 2.455e-05 3.141e-05 0.781 0.43937
## percent_under_125000 3.241e-06 2.581e-06 1.256 0.21688
## avg_household_size -1.107e-04 1.538e-04 -0.720 0.47594
## pop_density 8.086e-03 1.478e-02 0.547 0.58761
## `percent more than 1 occupant` 3.332e-05 1.103e-05 3.022 0.00448 **
## `percent more than 1 unit` -2.096e-06 2.759e-06 -0.760 0.45215
## avg_median_age 5.752e-06 7.895e-06 0.729 0.47069
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001341 on 38 degrees of freedom
## Multiple R-squared: 0.6473, Adjusted R-squared: 0.5823
## F-statistic: 9.961 on 7 and 38 DF, p-value: 5.366e-07
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.234e-04 -1.354e-04 -2.627e-05 7.060e-05 7.530e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.173e-04 1.217e-04 -1.786 0.08105 .
## total_visits_per_capita 8.577e-05 2.766e-05 3.100 0.00337 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001901 on 44 degrees of freedom
## Multiple R-squared: 0.1793, Adjusted R-squared: 0.1606
## F-statistic: 9.613 on 1 and 44 DF, p-value: 0.003366
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.816e-04 -6.621e-05 -8.290e-06 6.271e-05 3.642e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.395e-04 7.180e-04 -0.334 0.74052
## total_visits_per_capita 2.455e-05 3.141e-05 0.781 0.43937
## percent_under_125000 3.241e-06 2.581e-06 1.256 0.21688
## avg_household_size -1.107e-04 1.538e-04 -0.720 0.47594
## pop_density 8.086e-03 1.478e-02 0.547 0.58761
## `percent more than 1 occupant` 3.332e-05 1.103e-05 3.022 0.00448 **
## `percent more than 1 unit` -2.096e-06 2.759e-06 -0.760 0.45215
## avg_median_age 5.752e-06 7.895e-06 0.729 0.47069
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001341 on 38 degrees of freedom
## Multiple R-squared: 0.6473, Adjusted R-squared: 0.5823
## F-statistic: 9.961 on 7 and 38 DF, p-value: 5.366e-07
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.13883 -0.07078 -0.03067 0.06819 0.31000
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.06436 0.06730 -0.956 0.3441
## total_visits_per_capita 0.03954 0.01530 2.584 0.0131 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1051 on 44 degrees of freedom
## Multiple R-squared: 0.1318, Adjusted R-squared: 0.1121
## F-statistic: 6.679 on 1 and 44 DF, p-value: 0.01315
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.167072 -0.062398 -0.000402 0.056712 0.184413
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.4499323 0.4622858 -0.973 0.3366
## total_visits_per_capita 0.0396685 0.0202261 1.961 0.0572 .
## percent_under_125000 0.0015049 0.0016616 0.906 0.3708
## avg_household_size -0.0255094 0.0990267 -0.258 0.7981
## pop_density 15.1946591 9.5192907 1.596 0.1187
## `percent more than 1 occupant` 0.0093394 0.0070993 1.316 0.1962
## `percent more than 1 unit` 0.0003421 0.0017766 0.193 0.8483
## avg_median_age 0.0062869 0.0050832 1.237 0.2238
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.08635 on 38 degrees of freedom
## Multiple R-squared: 0.4943, Adjusted R-squared: 0.4011
## F-statistic: 5.305 on 7 and 38 DF, p-value: 0.0002728
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.418e-04 -1.590e-04 -4.129e-05 8.282e-05 7.354e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.993e-04 2.679e-04 -1.117 0.2717
## total_visits_per_capita 1.053e-04 5.699e-05 1.848 0.0733 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.00021 on 34 degrees of freedom
## Multiple R-squared: 0.09127, Adjusted R-squared: 0.06454
## F-statistic: 3.415 on 1 and 34 DF, p-value: 0.07332
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.501e-04 -8.439e-05 -2.580e-06 8.662e-05 3.528e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -6.985e-05 8.332e-04 -0.084 0.934
## total_visits_per_capita -1.066e-05 6.308e-05 -0.169 0.867
## percent_under_125000 3.393e-06 2.904e-06 1.168 0.253
## avg_household_size 8.186e-05 1.914e-04 0.428 0.672
## pop_density 1.659e-02 2.075e-02 0.800 0.431
## `percent more than 1 occupant` 1.598e-05 1.468e-05 1.088 0.286
## `percent more than 1 unit` 3.430e-07 3.385e-06 0.101 0.920
## avg_median_age -8.381e-06 1.050e-05 -0.798 0.432
##
## Residual standard error: 0.0001389 on 28 degrees of freedom
## Multiple R-squared: 0.6726, Adjusted R-squared: 0.5907
## F-statistic: 8.216 on 7 and 28 DF, p-value: 1.938e-05
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.13520 -0.08548 -0.02324 0.07209 0.29357
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.122556 0.141673 0.865 0.393
## total_visits_per_capita 0.002461 0.030140 0.082 0.935
##
## Residual standard error: 0.1111 on 34 degrees of freedom
## Multiple R-squared: 0.0001961, Adjusted R-squared: -0.02921
## F-statistic: 0.006668 on 1 and 34 DF, p-value: 0.9354
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.135913 -0.046925 -0.006487 0.050608 0.154001
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.040993 0.471951 -0.087 0.931
## total_visits_per_capita -0.007623 0.035729 -0.213 0.833
## percent_under_125000 0.001482 0.001645 0.901 0.375
## avg_household_size 0.104080 0.108400 0.960 0.345
## pop_density 22.309896 11.753732 1.898 0.068 .
## `percent more than 1 occupant` -0.003893 0.008316 -0.468 0.643
## `percent more than 1 unit` 0.001626 0.001917 0.848 0.404
## avg_median_age -0.007051 0.005949 -1.185 0.246
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0787 on 28 degrees of freedom
## Multiple R-squared: 0.5868, Adjusted R-squared: 0.4835
## F-statistic: 5.68 on 7 and 28 DF, p-value: 0.000371
##
## [1] "Cases start date: 2020-05-11"
## [1] "Visits start date: 2020-04-27"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.688e-04 -1.328e-04 -5.446e-05 1.974e-05 9.389e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.543e-04 1.456e-04 -1.060 0.2951
## total_visits_per_capita 7.770e-05 3.213e-05 2.418 0.0198 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002322 on 44 degrees of freedom
## Multiple R-squared: 0.1173, Adjusted R-squared: 0.09725
## F-statistic: 5.848 on 1 and 44 DF, p-value: 0.01981
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.278e-04 -7.492e-05 -2.659e-05 5.980e-05 4.945e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.188e-06 9.106e-04 0.002 0.9981
## total_visits_per_capita -1.419e-05 4.138e-05 -0.343 0.7336
## percent_under_125000 7.189e-06 3.346e-06 2.149 0.0381 *
## avg_household_size -1.296e-04 1.972e-04 -0.657 0.5151
## pop_density 8.167e-03 1.824e-02 0.448 0.6568
## `percent more than 1 occupant` 3.434e-05 1.396e-05 2.459 0.0186 *
## `percent more than 1 unit` -5.826e-06 3.474e-06 -1.677 0.1018
## avg_median_age 3.342e-06 1.002e-05 0.333 0.7407
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001696 on 38 degrees of freedom
## Multiple R-squared: 0.5934, Adjusted R-squared: 0.5185
## F-statistic: 7.923 on 7 and 38 DF, p-value: 6.533e-06
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.688e-04 -1.328e-04 -5.446e-05 1.974e-05 9.389e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.543e-04 1.456e-04 -1.060 0.2951
## total_visits_per_capita 7.770e-05 3.213e-05 2.418 0.0198 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002322 on 44 degrees of freedom
## Multiple R-squared: 0.1173, Adjusted R-squared: 0.09725
## F-statistic: 5.848 on 1 and 44 DF, p-value: 0.01981
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.278e-04 -7.492e-05 -2.659e-05 5.980e-05 4.945e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.188e-06 9.106e-04 0.002 0.9981
## total_visits_per_capita -1.419e-05 4.138e-05 -0.343 0.7336
## percent_under_125000 7.189e-06 3.346e-06 2.149 0.0381 *
## avg_household_size -1.296e-04 1.972e-04 -0.657 0.5151
## pop_density 8.167e-03 1.824e-02 0.448 0.6568
## `percent more than 1 occupant` 3.434e-05 1.396e-05 2.459 0.0186 *
## `percent more than 1 unit` -5.826e-06 3.474e-06 -1.677 0.1018
## avg_median_age 3.342e-06 1.002e-05 0.333 0.7407
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001696 on 38 degrees of freedom
## Multiple R-squared: 0.5934, Adjusted R-squared: 0.5185
## F-statistic: 7.923 on 7 and 38 DF, p-value: 6.533e-06
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.13081 -0.12273 -0.02104 0.03082 0.57290
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.116292 0.090317 1.288 0.205
## total_visits_per_capita 0.002666 0.019936 0.134 0.894
##
## Residual standard error: 0.144 on 44 degrees of freedom
## Multiple R-squared: 0.0004063, Adjusted R-squared: -0.02231
## F-statistic: 0.01788 on 1 and 44 DF, p-value: 0.8942
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.24390 -0.06740 -0.01165 0.05249 0.38090
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.3698750 0.6500454 -0.569 0.5727
## total_visits_per_capita -0.0135994 0.0295407 -0.460 0.6479
## percent_under_125000 0.0024671 0.0023886 1.033 0.3082
## avg_household_size 0.1373459 0.1407586 0.976 0.3354
## pop_density 26.7210378 13.0195506 2.052 0.0471 *
## `percent more than 1 occupant` -0.0021146 0.0099680 -0.212 0.8331
## `percent more than 1 unit` -0.0003188 0.0024804 -0.129 0.8984
## avg_median_age -0.0007490 0.0071560 -0.105 0.9172
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.121 on 38 degrees of freedom
## Multiple R-squared: 0.3903, Adjusted R-squared: 0.278
## F-statistic: 3.476 on 7 and 38 DF, p-value: 0.005639
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.839e-04 -1.506e-04 -7.022e-05 1.672e-05 9.208e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.101e-04 2.815e-04 -0.391 0.698
## total_visits_per_capita 7.238e-05 5.827e-05 1.242 0.223
##
## Residual standard error: 0.0002536 on 34 degrees of freedom
## Multiple R-squared: 0.04341, Adjusted R-squared: 0.01528
## F-statistic: 1.543 on 1 and 34 DF, p-value: 0.2227
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.069e-04 -9.285e-05 -2.938e-05 8.150e-05 4.897e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 5.233e-04 1.089e-03 0.481 0.6346
## total_visits_per_capita -1.058e-04 8.391e-05 -1.260 0.2179
## percent_under_125000 8.811e-06 4.210e-06 2.093 0.0456 *
## avg_household_size -6.489e-05 2.596e-04 -0.250 0.8045
## pop_density 8.777e-04 2.915e-02 0.030 0.9762
## `percent more than 1 occupant` 2.915e-05 1.959e-05 1.488 0.1480
## `percent more than 1 unit` -6.561e-06 4.509e-06 -1.455 0.1568
## avg_median_age -3.766e-06 1.389e-05 -0.271 0.7883
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001848 on 28 degrees of freedom
## Multiple R-squared: 0.5819, Adjusted R-squared: 0.4774
## F-statistic: 5.567 on 7 and 28 DF, p-value: 0.0004295
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.15228 -0.06388 -0.01961 0.01988 0.36371
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.08758 0.12539 0.698 0.49
## total_visits_per_capita 0.01188 0.02596 0.458 0.65
##
## Residual standard error: 0.113 on 34 degrees of freedom
## Multiple R-squared: 0.006128, Adjusted R-squared: -0.0231
## F-statistic: 0.2096 on 1 and 34 DF, p-value: 0.65
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.14996 -0.06838 -0.01682 0.05234 0.33198
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.114149 0.629011 -0.181 0.857
## total_visits_per_capita -0.016038 0.048469 -0.331 0.743
## percent_under_125000 0.003213 0.002432 1.321 0.197
## avg_household_size -0.024317 0.149972 -0.162 0.872
## pop_density 13.021820 16.836719 0.773 0.446
## `percent more than 1 occupant` 0.007086 0.011318 0.626 0.536
## `percent more than 1 unit` -0.002342 0.002604 -0.899 0.376
## avg_median_age 0.005146 0.008025 0.641 0.527
##
## Residual standard error: 0.1067 on 28 degrees of freedom
## Multiple R-squared: 0.2696, Adjusted R-squared: 0.08705
## F-statistic: 1.477 on 7 and 28 DF, p-value: 0.2159
##
## [1] "Cases start date: 2020-05-18"
## [1] "Visits start date: 2020-05-04"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.392e-04 -1.952e-04 -9.661e-05 4.662e-05 1.901e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -9.904e-05 2.273e-04 -0.436 0.665
## total_visits_per_capita 7.965e-05 5.273e-05 1.511 0.138
##
## Residual standard error: 0.0003685 on 44 degrees of freedom
## Multiple R-squared: 0.0493, Adjusted R-squared: 0.0277
## F-statistic: 2.282 on 1 and 44 DF, p-value: 0.1381
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.585e-04 -1.302e-04 -1.659e-05 8.288e-05 1.173e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.726e-04 1.474e-03 0.117 0.9074
## total_visits_per_capita -3.964e-05 6.635e-05 -0.597 0.5537
## percent_under_125000 9.141e-06 5.131e-06 1.781 0.0828 .
## avg_household_size -2.365e-04 3.322e-04 -0.712 0.4810
## pop_density 1.493e-02 2.954e-02 0.505 0.6161
## `percent more than 1 occupant` 5.788e-05 2.298e-05 2.518 0.0161 *
## `percent more than 1 unit` -8.910e-06 5.678e-06 -1.569 0.1249
## avg_median_age 5.844e-06 1.601e-05 0.365 0.7170
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002744 on 38 degrees of freedom
## Multiple R-squared: 0.5449, Adjusted R-squared: 0.461
## F-statistic: 6.499 on 7 and 38 DF, p-value: 4.585e-05
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.392e-04 -1.952e-04 -9.661e-05 4.662e-05 1.901e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -9.904e-05 2.273e-04 -0.436 0.665
## total_visits_per_capita 7.965e-05 5.273e-05 1.511 0.138
##
## Residual standard error: 0.0003685 on 44 degrees of freedom
## Multiple R-squared: 0.0493, Adjusted R-squared: 0.0277
## F-statistic: 2.282 on 1 and 44 DF, p-value: 0.1381
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.585e-04 -1.302e-04 -1.659e-05 8.288e-05 1.173e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.726e-04 1.474e-03 0.117 0.9074
## total_visits_per_capita -3.964e-05 6.635e-05 -0.597 0.5537
## percent_under_125000 9.141e-06 5.131e-06 1.781 0.0828 .
## avg_household_size -2.365e-04 3.322e-04 -0.712 0.4810
## pop_density 1.493e-02 2.954e-02 0.505 0.6161
## `percent more than 1 occupant` 5.788e-05 2.298e-05 2.518 0.0161 *
## `percent more than 1 unit` -8.910e-06 5.678e-06 -1.569 0.1249
## avg_median_age 5.844e-06 1.601e-05 0.365 0.7170
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002744 on 38 degrees of freedom
## Multiple R-squared: 0.5449, Adjusted R-squared: 0.461
## F-statistic: 6.499 on 7 and 38 DF, p-value: 4.585e-05
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.14393 -0.09970 -0.03088 0.03834 0.57845
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.08063 0.08440 0.955 0.345
## total_visits_per_capita 0.01150 0.01958 0.588 0.560
##
## Residual standard error: 0.1368 on 44 degrees of freedom
## Multiple R-squared: 0.007784, Adjusted R-squared: -0.01477
## F-statistic: 0.3452 on 1 and 44 DF, p-value: 0.5599
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.17278 -0.07190 -0.01638 0.03238 0.56805
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.309427 0.717939 0.431 0.669
## total_visits_per_capita -0.002470 0.032326 -0.076 0.939
## percent_under_125000 0.002729 0.002500 1.092 0.282
## avg_household_size -0.036678 0.161872 -0.227 0.822
## pop_density 5.644625 14.393563 0.392 0.697
## `percent more than 1 occupant` 0.003716 0.011198 0.332 0.742
## `percent more than 1 unit` -0.002027 0.002766 -0.733 0.468
## avg_median_age -0.005161 0.007798 -0.662 0.512
##
## Residual standard error: 0.1337 on 38 degrees of freedom
## Multiple R-squared: 0.1823, Adjusted R-squared: 0.0317
## F-statistic: 1.21 on 7 and 38 DF, p-value: 0.3209
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.274e-04 -2.176e-04 -1.510e-04 5.154e-05 1.874e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 9.107e-05 3.621e-04 0.252 0.803
## total_visits_per_capita 4.294e-05 7.939e-05 0.541 0.592
##
## Residual standard error: 0.0004037 on 35 degrees of freedom
## Multiple R-squared: 0.008291, Adjusted R-squared: -0.02004
## F-statistic: 0.2926 on 1 and 35 DF, p-value: 0.592
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.498e-04 -1.744e-04 -1.516e-05 1.091e-04 1.137e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.215e-04 1.772e-03 0.238 0.814
## total_visits_per_capita -9.753e-05 1.174e-04 -0.830 0.413
## percent_under_125000 9.357e-06 5.980e-06 1.565 0.128
## avg_household_size -3.099e-04 3.950e-04 -0.785 0.439
## pop_density 1.342e-02 4.260e-02 0.315 0.755
## `percent more than 1 occupant` 6.880e-05 2.932e-05 2.346 0.026 *
## `percent more than 1 unit` -1.168e-05 7.264e-06 -1.608 0.119
## avg_median_age 1.217e-05 1.916e-05 0.635 0.530
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000302 on 29 degrees of freedom
## Multiple R-squared: 0.5404, Adjusted R-squared: 0.4295
## F-statistic: 4.871 on 7 and 29 DF, p-value: 0.001002
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.15038 -0.06786 -0.02959 0.04247 0.27452
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.167199 0.092510 1.807 0.0793 .
## total_visits_per_capita -0.005761 0.020285 -0.284 0.7781
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1032 on 35 degrees of freedom
## Multiple R-squared: 0.002299, Adjusted R-squared: -0.02621
## F-statistic: 0.08067 on 1 and 35 DF, p-value: 0.7781
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.12426 -0.03879 -0.01216 0.02676 0.24566
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.2033416 0.5496679 0.370 0.714
## total_visits_per_capita -0.0335307 0.0364267 -0.920 0.365
## percent_under_125000 0.0026287 0.0018549 1.417 0.167
## avg_household_size -0.0135992 0.1225341 -0.111 0.912
## pop_density 9.0150067 13.2138815 0.682 0.501
## `percent more than 1 occupant` 0.0062992 0.0090950 0.693 0.494
## `percent more than 1 unit` -0.0028990 0.0022530 -1.287 0.208
## avg_median_age -0.0001133 0.0059441 -0.019 0.985
##
## Residual standard error: 0.09366 on 29 degrees of freedom
## Multiple R-squared: 0.3186, Adjusted R-squared: 0.1541
## F-statistic: 1.937 on 7 and 29 DF, p-value: 0.09955
##
## [1] "Cases start date: 2020-05-25"
## [1] "Visits start date: 2020-05-11"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.810e-04 -2.177e-04 -8.158e-05 6.453e-05 1.630e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.657e-04 2.406e-04 -0.689 0.4945
## total_visits_per_capita 1.075e-04 5.727e-05 1.877 0.0671 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003865 on 44 degrees of freedom
## Multiple R-squared: 0.07414, Adjusted R-squared: 0.0531
## F-statistic: 3.523 on 1 and 44 DF, p-value: 0.06715
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.967e-04 -1.516e-04 -3.825e-05 1.209e-04 9.147e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -9.563e-05 1.359e-03 -0.070 0.9443
## total_visits_per_capita -1.258e-04 6.591e-05 -1.909 0.0639 .
## percent_under_125000 1.379e-05 4.819e-06 2.862 0.0068 **
## avg_household_size -4.948e-05 3.061e-04 -0.162 0.8724
## pop_density -3.672e-02 2.743e-02 -1.339 0.1886
## `percent more than 1 occupant` 5.404e-05 2.131e-05 2.536 0.0155 *
## `percent more than 1 unit` -6.456e-06 5.230e-06 -1.235 0.2246
## avg_median_age 3.496e-06 1.485e-05 0.235 0.8152
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002543 on 38 degrees of freedom
## Multiple R-squared: 0.6537, Adjusted R-squared: 0.5899
## F-statistic: 10.25 on 7 and 38 DF, p-value: 3.867e-07
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.810e-04 -2.177e-04 -8.158e-05 6.453e-05 1.630e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.657e-04 2.406e-04 -0.689 0.4945
## total_visits_per_capita 1.075e-04 5.727e-05 1.877 0.0671 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003865 on 44 degrees of freedom
## Multiple R-squared: 0.07414, Adjusted R-squared: 0.0531
## F-statistic: 3.523 on 1 and 44 DF, p-value: 0.06715
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.967e-04 -1.516e-04 -3.825e-05 1.209e-04 9.147e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -9.563e-05 1.359e-03 -0.070 0.9443
## total_visits_per_capita -1.258e-04 6.591e-05 -1.909 0.0639 .
## percent_under_125000 1.379e-05 4.819e-06 2.862 0.0068 **
## avg_household_size -4.948e-05 3.061e-04 -0.162 0.8724
## pop_density -3.672e-02 2.743e-02 -1.339 0.1886
## `percent more than 1 occupant` 5.404e-05 2.131e-05 2.536 0.0155 *
## `percent more than 1 unit` -6.456e-06 5.230e-06 -1.235 0.2246
## avg_median_age 3.496e-06 1.485e-05 0.235 0.8152
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002543 on 38 degrees of freedom
## Multiple R-squared: 0.6537, Adjusted R-squared: 0.5899
## F-statistic: 10.25 on 7 and 38 DF, p-value: 3.867e-07
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.14540 -0.10666 -0.02088 0.03090 0.56754
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.07986 0.09079 0.880 0.384
## total_visits_per_capita 0.01437 0.02161 0.665 0.510
##
## Residual standard error: 0.1458 on 44 degrees of freedom
## Multiple R-squared: 0.009945, Adjusted R-squared: -0.01256
## F-statistic: 0.442 on 1 and 44 DF, p-value: 0.5096
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.17815 -0.08022 -0.02360 0.02391 0.60595
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.487667 0.772681 -0.631 0.5317
## total_visits_per_capita -0.041445 0.037486 -1.106 0.2758
## percent_under_125000 0.004829 0.002741 1.762 0.0861 .
## avg_household_size 0.155722 0.174075 0.895 0.3766
## pop_density -26.817518 15.602814 -1.719 0.0938 .
## `percent more than 1 occupant` -0.007452 0.012121 -0.615 0.5424
## `percent more than 1 unit` 0.001990 0.002974 0.669 0.5075
## avg_median_age 0.002622 0.008447 0.310 0.7579
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1447 on 38 degrees of freedom
## Multiple R-squared: 0.1586, Adjusted R-squared: 0.003642
## F-statistic: 1.024 on 7 and 38 DF, p-value: 0.4308
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.719e-04 -2.557e-04 -9.482e-05 6.229e-05 1.626e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -9.920e-05 3.554e-04 -0.279 0.782
## total_visits_per_capita 9.351e-05 8.056e-05 1.161 0.253
##
## Residual standard error: 0.0004164 on 36 degrees of freedom
## Multiple R-squared: 0.03608, Adjusted R-squared: 0.009303
## F-statistic: 1.347 on 1 and 36 DF, p-value: 0.2534
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.121e-04 -1.921e-04 4.720e-06 1.052e-04 8.443e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 5.165e-04 1.558e-03 0.332 0.74257
## total_visits_per_capita -1.367e-04 1.036e-04 -1.320 0.19674
## percent_under_125000 1.177e-05 5.419e-06 2.172 0.03792 *
## avg_household_size -2.662e-04 3.530e-04 -0.754 0.45662
## pop_density -2.124e-02 3.794e-02 -0.560 0.57975
## `percent more than 1 occupant` 7.467e-05 2.608e-05 2.863 0.00758 **
## `percent more than 1 unit` -1.077e-05 6.459e-06 -1.667 0.10589
## avg_median_age 7.518e-06 1.671e-05 0.450 0.65610
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002691 on 30 degrees of freedom
## Multiple R-squared: 0.6646, Adjusted R-squared: 0.5863
## F-statistic: 8.492 on 7 and 30 DF, p-value: 1.028e-05
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.140165 -0.046258 -0.002897 0.043980 0.173026
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.150437 0.065518 2.296 0.0276 *
## total_visits_per_capita -0.004446 0.014850 -0.299 0.7664
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.07676 on 36 degrees of freedom
## Multiple R-squared: 0.002484, Adjusted R-squared: -0.02522
## F-statistic: 0.08964 on 1 and 36 DF, p-value: 0.7664
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.11560 -0.03639 0.01321 0.03863 0.09705
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.243309 0.371363 0.655 0.5173
## total_visits_per_capita -0.052443 0.024683 -2.125 0.0420 *
## percent_under_125000 0.001973 0.001292 1.528 0.1371
## avg_household_size -0.064356 0.084130 -0.765 0.4503
## pop_density -7.241023 9.042316 -0.801 0.4295
## `percent more than 1 occupant` 0.013878 0.006216 2.233 0.0332 *
## `percent more than 1 unit` -0.002165 0.001540 -1.406 0.1700
## avg_median_age 0.004441 0.003984 1.115 0.2738
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.06413 on 30 degrees of freedom
## Multiple R-squared: 0.4197, Adjusted R-squared: 0.2843
## F-statistic: 3.1 on 7 and 30 DF, p-value: 0.01394
##
## [1] "Cases start date: 2020-06-01"
## [1] "Visits start date: 2020-05-18"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.430e-04 -1.746e-04 -6.262e-05 5.598e-05 1.087e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -9.294e-05 1.982e-04 -0.469 0.641
## total_visits_per_capita 7.198e-05 4.302e-05 1.673 0.101
##
## Residual standard error: 0.0003009 on 44 degrees of freedom
## Multiple R-squared: 0.05982, Adjusted R-squared: 0.03845
## F-statistic: 2.8 on 1 and 44 DF, p-value: 0.1014
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.376e-04 -1.106e-04 -7.400e-06 8.198e-05 3.892e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.376e-04 8.405e-04 -0.164 0.870832
## total_visits_per_capita -4.545e-05 3.802e-05 -1.196 0.239281
## percent_under_125000 9.200e-06 2.905e-06 3.166 0.003038 **
## avg_household_size -1.507e-04 1.848e-04 -0.816 0.419693
## pop_density 3.000e-03 1.712e-02 0.175 0.861809
## `percent more than 1 occupant` 5.303e-05 1.318e-05 4.023 0.000264 ***
## `percent more than 1 unit` -6.739e-06 3.223e-06 -2.091 0.043256 *
## avg_median_age 7.932e-06 9.364e-06 0.847 0.402210
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001573 on 38 degrees of freedom
## Multiple R-squared: 0.7783, Adjusted R-squared: 0.7374
## F-statistic: 19.06 on 7 and 38 DF, p-value: 1.213e-10
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.430e-04 -1.746e-04 -6.262e-05 5.598e-05 1.087e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -9.294e-05 1.982e-04 -0.469 0.641
## total_visits_per_capita 7.198e-05 4.302e-05 1.673 0.101
##
## Residual standard error: 0.0003009 on 44 degrees of freedom
## Multiple R-squared: 0.05982, Adjusted R-squared: 0.03845
## F-statistic: 2.8 on 1 and 44 DF, p-value: 0.1014
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.376e-04 -1.106e-04 -7.400e-06 8.198e-05 3.892e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.376e-04 8.405e-04 -0.164 0.870832
## total_visits_per_capita -4.545e-05 3.802e-05 -1.196 0.239281
## percent_under_125000 9.200e-06 2.905e-06 3.166 0.003038 **
## avg_household_size -1.507e-04 1.848e-04 -0.816 0.419693
## pop_density 3.000e-03 1.712e-02 0.175 0.861809
## `percent more than 1 occupant` 5.303e-05 1.318e-05 4.023 0.000264 ***
## `percent more than 1 unit` -6.739e-06 3.223e-06 -2.091 0.043256 *
## avg_median_age 7.932e-06 9.364e-06 0.847 0.402210
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001573 on 38 degrees of freedom
## Multiple R-squared: 0.7783, Adjusted R-squared: 0.7374
## F-statistic: 19.06 on 7 and 38 DF, p-value: 1.213e-10
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.10449 -0.07283 -0.00373 0.03024 0.68429
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.1035675 0.0806430 1.284 0.206
## total_visits_per_capita 0.0001526 0.0175065 0.009 0.993
##
## Residual standard error: 0.1225 on 44 degrees of freedom
## Multiple R-squared: 1.728e-06, Adjusted R-squared: -0.02273
## F-statistic: 7.603e-05 on 1 and 44 DF, p-value: 0.9931
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.10876 -0.05620 -0.01315 0.02004 0.65751
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.2185696 0.6507718 -0.336 0.739
## total_visits_per_capita 0.0014457 0.0294378 0.049 0.961
## percent_under_125000 0.0004996 0.0022497 0.222 0.825
## avg_household_size -0.0063591 0.1430572 -0.044 0.965
## pop_density 16.5630233 13.2532331 1.250 0.219
## `percent more than 1 occupant` 0.0086213 0.0102073 0.845 0.404
## `percent more than 1 unit` -0.0005482 0.0024954 -0.220 0.827
## avg_median_age 0.0056630 0.0072502 0.781 0.440
##
## Residual standard error: 0.1218 on 38 degrees of freedom
## Multiple R-squared: 0.1463, Adjusted R-squared: -0.01101
## F-statistic: 0.93 on 7 and 38 DF, p-value: 0.4949
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.211e-04 -2.003e-04 -6.421e-05 4.480e-05 1.078e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.972e-05 2.644e-04 0.112 0.911
## total_visits_per_capita 4.812e-05 5.526e-05 0.871 0.389
##
## Residual standard error: 0.0003185 on 38 degrees of freedom
## Multiple R-squared: 0.01956, Adjusted R-squared: -0.00624
## F-statistic: 0.7581 on 1 and 38 DF, p-value: 0.3894
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.413e-04 -1.243e-04 -9.790e-06 9.257e-05 3.910e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.320e-05 9.972e-04 -0.043 0.96571
## total_visits_per_capita -5.981e-05 5.172e-05 -1.156 0.25610
## percent_under_125000 9.638e-06 3.130e-06 3.079 0.00424 **
## avg_household_size -1.814e-04 2.106e-04 -0.861 0.39542
## pop_density -2.733e-04 1.942e-02 -0.014 0.98886
## `percent more than 1 occupant` 5.619e-05 1.567e-05 3.586 0.00110 **
## `percent more than 1 unit` -7.727e-06 3.939e-06 -1.962 0.05855 .
## avg_median_age 9.333e-06 1.046e-05 0.892 0.37910
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001665 on 32 degrees of freedom
## Multiple R-squared: 0.7744, Adjusted R-squared: 0.7251
## F-statistic: 15.69 on 7 and 32 DF, p-value: 9.888e-09
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.11137 -0.04011 0.01137 0.03875 0.12177
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.15383 0.04903 3.138 0.00328 **
## total_visits_per_capita -0.01142 0.01025 -1.115 0.27198
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.05904 on 38 degrees of freedom
## Multiple R-squared: 0.03166, Adjusted R-squared: 0.006181
## F-statistic: 1.243 on 1 and 38 DF, p-value: 0.272
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.086286 -0.029367 0.001959 0.025778 0.126661
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.1416349 0.2933576 -0.483 0.6325
## total_visits_per_capita -0.0258306 0.0152163 -1.698 0.0993 .
## percent_under_125000 0.0014555 0.0009209 1.581 0.1238
## avg_household_size 0.0381459 0.0619568 0.616 0.5425
## pop_density 2.9272562 5.7139094 0.512 0.6120
## `percent more than 1 occupant` 0.0040061 0.0046097 0.869 0.3913
## `percent more than 1 unit` -0.0002194 0.0011589 -0.189 0.8510
## avg_median_age 0.0033923 0.0030782 1.102 0.2787
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04897 on 32 degrees of freedom
## Multiple R-squared: 0.439, Adjusted R-squared: 0.3163
## F-statistic: 3.577 on 7 and 32 DF, p-value: 0.005921
##
## [1] "Cases start date: 2020-06-08"
## [1] "Visits start date: 2020-05-25"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0002873 -0.0001915 -0.0001480 0.0000585 0.0012109
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 6.617e-05 2.210e-04 0.299 0.766
## total_visits_per_capita 4.826e-05 5.690e-05 0.848 0.401
##
## Residual standard error: 0.0003551 on 44 degrees of freedom
## Multiple R-squared: 0.01609, Adjusted R-squared: -0.006276
## F-statistic: 0.7194 on 1 and 44 DF, p-value: 0.4009
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.497e-04 -1.128e-04 2.610e-06 1.123e-04 4.531e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 8.114e-04 9.925e-04 0.818 0.418735
## total_visits_per_capita -7.020e-05 4.853e-05 -1.446 0.156238
## percent_under_125000 1.181e-05 3.311e-06 3.566 0.000998 ***
## avg_household_size -3.198e-04 2.193e-04 -1.458 0.152969
## pop_density -1.816e-02 1.872e-02 -0.970 0.338113
## `percent more than 1 occupant` 6.202e-05 1.548e-05 4.008 0.000276 ***
## `percent more than 1 unit` -1.091e-05 3.811e-06 -2.862 0.006819 **
## avg_median_age -2.391e-06 1.091e-05 -0.219 0.827690
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000186 on 38 degrees of freedom
## Multiple R-squared: 0.7669, Adjusted R-squared: 0.724
## F-statistic: 17.86 on 7 and 38 DF, p-value: 3.028e-10
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0002873 -0.0001915 -0.0001480 0.0000585 0.0012109
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 6.617e-05 2.210e-04 0.299 0.766
## total_visits_per_capita 4.826e-05 5.690e-05 0.848 0.401
##
## Residual standard error: 0.0003551 on 44 degrees of freedom
## Multiple R-squared: 0.01609, Adjusted R-squared: -0.006276
## F-statistic: 0.7194 on 1 and 44 DF, p-value: 0.4009
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.497e-04 -1.128e-04 2.610e-06 1.123e-04 4.531e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 8.114e-04 9.925e-04 0.818 0.418735
## total_visits_per_capita -7.020e-05 4.853e-05 -1.446 0.156238
## percent_under_125000 1.181e-05 3.311e-06 3.566 0.000998 ***
## avg_household_size -3.198e-04 2.193e-04 -1.458 0.152969
## pop_density -1.816e-02 1.872e-02 -0.970 0.338113
## `percent more than 1 occupant` 6.202e-05 1.548e-05 4.008 0.000276 ***
## `percent more than 1 unit` -1.091e-05 3.811e-06 -2.862 0.006819 **
## avg_median_age -2.391e-06 1.091e-05 -0.219 0.827690
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000186 on 38 degrees of freedom
## Multiple R-squared: 0.7669, Adjusted R-squared: 0.724
## F-statistic: 17.86 on 7 and 38 DF, p-value: 3.028e-10
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.10689 -0.06390 -0.02573 0.06115 0.14529
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.02486 0.04399 0.565 0.575
## total_visits_per_capita 0.01790 0.01132 1.581 0.121
##
## Residual standard error: 0.07068 on 44 degrees of freedom
## Multiple R-squared: 0.05376, Adjusted R-squared: 0.03225
## F-statistic: 2.5 on 1 and 44 DF, p-value: 0.121
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.09238 -0.03825 -0.01380 0.04256 0.14174
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 6.665e-03 3.410e-01 0.020 0.9845
## total_visits_per_capita 1.762e-02 1.668e-02 1.057 0.2973
## percent_under_125000 2.526e-03 1.138e-03 2.220 0.0324 *
## avg_household_size -4.602e-02 7.534e-02 -0.611 0.5450
## pop_density -1.137e+01 6.433e+00 -1.768 0.0851 .
## `percent more than 1 occupant` 3.368e-03 5.318e-03 0.633 0.5303
## `percent more than 1 unit` -2.224e-04 1.310e-03 -0.170 0.8661
## avg_median_age 1.830e-04 3.749e-03 0.049 0.9613
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.06391 on 38 degrees of freedom
## Multiple R-squared: 0.3318, Adjusted R-squared: 0.2087
## F-statistic: 2.695 on 7 and 38 DF, p-value: 0.02273
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.817e-04 -2.186e-04 -1.342e-04 4.029e-05 1.199e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.880e-04 2.821e-04 1.021 0.313
## total_visits_per_capita -2.393e-06 7.001e-05 -0.034 0.973
##
## Residual standard error: 0.0003684 on 39 degrees of freedom
## Multiple R-squared: 2.996e-05, Adjusted R-squared: -0.02561
## F-statistic: 0.001169 on 1 and 39 DF, p-value: 0.9729
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.480e-04 -1.155e-04 -5.700e-07 1.050e-04 4.395e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.126e-03 1.173e-03 0.960 0.344174
## total_visits_per_capita -9.995e-05 7.127e-05 -1.403 0.170094
## percent_under_125000 1.145e-05 3.685e-06 3.108 0.003857 **
## avg_household_size -3.901e-04 2.443e-04 -1.597 0.119814
## pop_density -1.781e-02 2.025e-02 -0.880 0.385436
## `percent more than 1 occupant` 6.876e-05 1.824e-05 3.770 0.000643 ***
## `percent more than 1 unit` -1.300e-05 4.665e-06 -2.786 0.008785 **
## avg_median_age -8.266e-07 1.214e-05 -0.068 0.946145
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000196 on 33 degrees of freedom
## Multiple R-squared: 0.7605, Adjusted R-squared: 0.7097
## F-statistic: 14.97 on 7 and 33 DF, p-value: 1.295e-08
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.10497 -0.05944 -0.01600 0.06175 0.11849
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.1075473 0.0526283 2.044 0.0478 *
## total_visits_per_capita -0.0009762 0.0130632 -0.075 0.9408
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.06875 on 39 degrees of freedom
## Multiple R-squared: 0.0001432, Adjusted R-squared: -0.02549
## F-statistic: 0.005585 on 1 and 39 DF, p-value: 0.9408
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.098186 -0.049927 -0.002378 0.042796 0.126484
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.856e-01 3.926e-01 0.727 0.4721
## total_visits_per_capita -6.783e-03 2.385e-02 -0.284 0.7779
## percent_under_125000 1.971e-03 1.233e-03 1.599 0.1195
## avg_household_size -7.595e-02 8.177e-02 -0.929 0.3597
## pop_density -1.204e+01 6.778e+00 -1.776 0.0849 .
## `percent more than 1 occupant` 5.851e-03 6.104e-03 0.958 0.3448
## `percent more than 1 unit` -1.260e-03 1.562e-03 -0.807 0.4254
## avg_median_age -6.894e-04 4.065e-03 -0.170 0.8664
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.06561 on 33 degrees of freedom
## Multiple R-squared: 0.2293, Adjusted R-squared: 0.06585
## F-statistic: 1.403 on 7 and 33 DF, p-value: 0.2373
##
## [1] "Cases start date: 2020-06-15"
## [1] "Visits start date: 2020-06-01"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0004368 -0.0002637 -0.0001429 0.0001022 0.0014808
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.481e-04 2.654e-04 0.558 0.58
## total_visits_per_capita 5.967e-05 6.867e-05 0.869 0.39
##
## Residual standard error: 0.000428 on 44 degrees of freedom
## Multiple R-squared: 0.01687, Adjusted R-squared: -0.005475
## F-statistic: 0.755 on 1 and 44 DF, p-value: 0.3896
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.263e-04 -1.344e-04 -5.957e-05 1.213e-04 6.042e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.621e-03 1.376e-03 1.179 0.24590
## total_visits_per_capita -3.396e-06 6.895e-05 -0.049 0.96097
## percent_under_125000 1.374e-05 4.593e-06 2.991 0.00486 **
## avg_household_size -5.603e-04 2.987e-04 -1.876 0.06834 .
## pop_density -2.573e-02 2.594e-02 -0.992 0.32755
## `percent more than 1 occupant` 7.525e-05 2.123e-05 3.545 0.00106 **
## `percent more than 1 unit` -1.426e-05 5.265e-06 -2.709 0.01007 *
## avg_median_age -1.069e-05 1.505e-05 -0.710 0.48186
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002568 on 38 degrees of freedom
## Multiple R-squared: 0.6944, Adjusted R-squared: 0.6381
## F-statistic: 12.33 on 7 and 38 DF, p-value: 4.142e-08
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0004368 -0.0002637 -0.0001429 0.0001022 0.0014808
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.481e-04 2.654e-04 0.558 0.58
## total_visits_per_capita 5.967e-05 6.867e-05 0.869 0.39
##
## Residual standard error: 0.000428 on 44 degrees of freedom
## Multiple R-squared: 0.01687, Adjusted R-squared: -0.005475
## F-statistic: 0.755 on 1 and 44 DF, p-value: 0.3896
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.263e-04 -1.344e-04 -5.957e-05 1.213e-04 6.042e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.621e-03 1.376e-03 1.179 0.24590
## total_visits_per_capita -3.396e-06 6.895e-05 -0.049 0.96097
## percent_under_125000 1.374e-05 4.593e-06 2.991 0.00486 **
## avg_household_size -5.603e-04 2.987e-04 -1.876 0.06834 .
## pop_density -2.573e-02 2.594e-02 -0.992 0.32755
## `percent more than 1 occupant` 7.525e-05 2.123e-05 3.545 0.00106 **
## `percent more than 1 unit` -1.426e-05 5.265e-06 -2.709 0.01007 *
## avg_median_age -1.069e-05 1.505e-05 -0.710 0.48186
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002568 on 38 degrees of freedom
## Multiple R-squared: 0.6944, Adjusted R-squared: 0.6381
## F-statistic: 12.33 on 7 and 38 DF, p-value: 4.142e-08
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.18057 -0.07574 -0.03234 0.00961 0.56669
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.06654 0.09428 0.706 0.484
## total_visits_per_capita 0.02357 0.02440 0.966 0.339
##
## Residual standard error: 0.1521 on 44 degrees of freedom
## Multiple R-squared: 0.02077, Adjusted R-squared: -0.001486
## F-statistic: 0.9332 on 1 and 44 DF, p-value: 0.3393
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.21304 -0.06571 -0.02316 0.01459 0.56603
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 7.289e-01 8.497e-01 0.858 0.396
## total_visits_per_capita 4.097e-02 4.259e-02 0.962 0.342
## percent_under_125000 1.440e-04 2.837e-03 0.051 0.960
## avg_household_size -1.172e-01 1.845e-01 -0.635 0.529
## pop_density -1.491e+01 1.602e+01 -0.931 0.358
## `percent more than 1 occupant` 1.510e-03 1.311e-02 0.115 0.909
## `percent more than 1 unit` -4.156e-04 3.252e-03 -0.128 0.899
## avg_median_age -9.284e-03 9.296e-03 -0.999 0.324
##
## Residual standard error: 0.1586 on 38 degrees of freedom
## Multiple R-squared: 0.07993, Adjusted R-squared: -0.08956
## F-statistic: 0.4716 on 7 and 38 DF, p-value: 0.849
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.228e-04 -2.598e-04 -1.744e-04 8.972e-05 1.448e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.453e-04 3.134e-04 1.102 0.277
## total_visits_per_capita 1.601e-05 7.857e-05 0.204 0.840
##
## Residual standard error: 0.000441 on 39 degrees of freedom
## Multiple R-squared: 0.001063, Adjusted R-squared: -0.02455
## F-statistic: 0.0415 on 1 and 39 DF, p-value: 0.8396
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.267e-04 -1.275e-04 -6.268e-05 1.676e-04 5.771e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.174e-03 1.595e-03 0.736 0.46678
## total_visits_per_capita 4.377e-05 9.616e-05 0.455 0.65195
## percent_under_125000 1.546e-05 5.173e-06 2.989 0.00526 **
## avg_household_size -5.304e-04 3.295e-04 -1.610 0.11702
## pop_density -1.727e-02 2.767e-02 -0.624 0.53687
## `percent more than 1 occupant` 7.092e-05 2.495e-05 2.843 0.00762 **
## `percent more than 1 unit` -1.348e-05 6.312e-06 -2.135 0.04029 *
## avg_median_age -9.650e-06 1.632e-05 -0.591 0.55836
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002649 on 33 degrees of freedom
## Multiple R-squared: 0.695, Adjusted R-squared: 0.6304
## F-statistic: 10.74 on 7 and 33 DF, p-value: 5.663e-07
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.18314 -0.06749 -0.02020 0.01061 0.45442
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.04962 0.09025 0.55 0.586
## total_visits_per_capita 0.02760 0.02263 1.22 0.230
##
## Residual standard error: 0.127 on 39 degrees of freedom
## Multiple R-squared: 0.03674, Adjusted R-squared: 0.01204
## F-statistic: 1.488 on 1 and 39 DF, p-value: 0.2299
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.24677 -0.04028 -0.01572 0.02299 0.39725
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.257036 0.765751 0.336 0.7392
## total_visits_per_capita 0.096080 0.046174 2.081 0.0453 *
## percent_under_125000 0.001668 0.002484 0.672 0.5065
## avg_household_size -0.033291 0.158239 -0.210 0.8347
## pop_density -2.528039 13.284311 -0.190 0.8502
## `percent more than 1 occupant` -0.008980 0.011979 -0.750 0.4588
## `percent more than 1 unit` 0.001260 0.003031 0.416 0.6804
## avg_median_age -0.012017 0.007837 -1.533 0.1347
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1272 on 33 degrees of freedom
## Multiple R-squared: 0.1825, Adjusted R-squared: 0.009128
## F-statistic: 1.053 on 7 and 33 DF, p-value: 0.4149
##
## [1] "Cases start date: 2020-06-22"
## [1] "Visits start date: 2020-06-08"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.641e-04 -2.196e-04 -9.019e-05 8.377e-05 1.105e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.853e-04 1.919e-04 0.966 0.340
## total_visits_per_capita 4.900e-05 4.504e-05 1.088 0.283
##
## Residual standard error: 0.0003336 on 44 degrees of freedom
## Multiple R-squared: 0.0262, Adjusted R-squared: 0.004065
## F-statistic: 1.184 on 1 and 44 DF, p-value: 0.2825
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.241e-04 -1.062e-04 -1.537e-05 1.111e-04 6.283e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.176e-03 1.237e-03 1.759 0.0865 .
## total_visits_per_capita -2.724e-05 5.157e-05 -0.528 0.6004
## percent_under_125000 6.977e-06 4.133e-06 1.688 0.0996 .
## avg_household_size -3.107e-04 2.667e-04 -1.165 0.2513
## pop_density -8.191e-02 2.319e-02 -3.532 0.0011 **
## `percent more than 1 occupant` 4.183e-05 1.907e-05 2.194 0.0345 *
## `percent more than 1 unit` -5.505e-06 4.758e-06 -1.157 0.2546
## avg_median_age -2.808e-05 1.357e-05 -2.070 0.0453 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000232 on 38 degrees of freedom
## Multiple R-squared: 0.5932, Adjusted R-squared: 0.5182
## F-statistic: 7.915 on 7 and 38 DF, p-value: 6.602e-06
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.641e-04 -2.196e-04 -9.019e-05 8.377e-05 1.105e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.853e-04 1.919e-04 0.966 0.340
## total_visits_per_capita 4.900e-05 4.504e-05 1.088 0.283
##
## Residual standard error: 0.0003336 on 44 degrees of freedom
## Multiple R-squared: 0.0262, Adjusted R-squared: 0.004065
## F-statistic: 1.184 on 1 and 44 DF, p-value: 0.2825
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.241e-04 -1.062e-04 -1.537e-05 1.111e-04 6.283e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.176e-03 1.237e-03 1.759 0.0865 .
## total_visits_per_capita -2.724e-05 5.157e-05 -0.528 0.6004
## percent_under_125000 6.977e-06 4.133e-06 1.688 0.0996 .
## avg_household_size -3.107e-04 2.667e-04 -1.165 0.2513
## pop_density -8.191e-02 2.319e-02 -3.532 0.0011 **
## `percent more than 1 occupant` 4.183e-05 1.907e-05 2.194 0.0345 *
## `percent more than 1 unit` -5.505e-06 4.758e-06 -1.157 0.2546
## avg_median_age -2.808e-05 1.357e-05 -2.070 0.0453 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000232 on 38 degrees of freedom
## Multiple R-squared: 0.5932, Adjusted R-squared: 0.5182
## F-statistic: 7.915 on 7 and 38 DF, p-value: 6.602e-06
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.17477 -0.07665 -0.04225 0.03728 0.61542
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.180326 0.082937 2.174 0.0351 *
## total_visits_per_capita -0.003046 0.019466 -0.157 0.8764
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1442 on 44 degrees of freedom
## Multiple R-squared: 0.0005564, Adjusted R-squared: -0.02216
## F-statistic: 0.02449 on 1 and 44 DF, p-value: 0.8764
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.22055 -0.06848 0.00755 0.04973 0.52831
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.040998 0.727950 1.430 0.161
## total_visits_per_capita -0.004505 0.030359 -0.148 0.883
## percent_under_125000 -0.004881 0.002433 -2.006 0.052 .
## avg_household_size -0.015330 0.157012 -0.098 0.923
## pop_density -21.657419 13.651878 -1.586 0.121
## `percent more than 1 occupant` -0.001479 0.011226 -0.132 0.896
## `percent more than 1 unit` 0.001862 0.002801 0.665 0.510
## avg_median_age -0.013099 0.007987 -1.640 0.109
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1366 on 38 degrees of freedom
## Multiple R-squared: 0.2255, Adjusted R-squared: 0.08278
## F-statistic: 1.58 on 7 and 38 DF, p-value: 0.1711
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.568e-04 -2.112e-04 -1.162e-04 7.305e-05 1.079e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.106e-04 2.214e-04 1.403 0.168
## total_visits_per_capita 2.415e-05 5.058e-05 0.478 0.636
##
## Residual standard error: 0.0003362 on 40 degrees of freedom
## Multiple R-squared: 0.005668, Adjusted R-squared: -0.01919
## F-statistic: 0.228 on 1 and 40 DF, p-value: 0.6356
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.120e-04 -1.186e-04 -3.710e-06 1.013e-04 5.946e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.036e-03 1.324e-03 1.538 0.13339
## total_visits_per_capita -2.387e-06 6.226e-05 -0.038 0.96964
## percent_under_125000 8.382e-06 4.359e-06 1.923 0.06289 .
## avg_household_size -2.818e-04 2.851e-04 -0.988 0.32995
## pop_density -7.822e-02 2.393e-02 -3.268 0.00248 **
## `percent more than 1 occupant` 3.484e-05 2.160e-05 1.613 0.11597
## `percent more than 1 unit` -4.700e-06 5.370e-06 -0.875 0.38752
## avg_median_age -3.144e-05 1.446e-05 -2.174 0.03680 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000234 on 34 degrees of freedom
## Multiple R-squared: 0.5907, Adjusted R-squared: 0.5064
## F-statistic: 7.009 on 7 and 34 DF, p-value: 3.436e-05
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.13500 -0.07291 -0.03210 0.04796 0.38785
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.141657 0.069374 2.042 0.0478 *
## total_visits_per_capita 0.005482 0.015847 0.346 0.7312
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1053 on 40 degrees of freedom
## Multiple R-squared: 0.002982, Adjusted R-squared: -0.02194
## F-statistic: 0.1197 on 1 and 40 DF, p-value: 0.7312
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.20250 -0.04434 0.00040 0.03832 0.33623
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.834534 0.546666 1.527 0.1361
## total_visits_per_capita 0.025924 0.025705 1.009 0.3203
## percent_under_125000 -0.002916 0.001800 -1.620 0.1144
## avg_household_size -0.026949 0.117704 -0.229 0.8203
## pop_density -13.452989 9.880163 -1.362 0.1823
## `percent more than 1 occupant` -0.005473 0.008918 -0.614 0.5435
## `percent more than 1 unit` 0.001768 0.002217 0.797 0.4307
## avg_median_age -0.013236 0.005972 -2.216 0.0335 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.09659 on 34 degrees of freedom
## Multiple R-squared: 0.2874, Adjusted R-squared: 0.1406
## F-statistic: 1.959 on 7 and 34 DF, p-value: 0.09039
model_results_1 <- model_results_1 %>%
mutate(visits_start_date = as.Date(cases_start_date) - visits_lag)
There’s a lot of information there, and most of the model fits and their variation over time are better interpreted from the following plots. However, in terms of demographic correlations:
Early on, income and population density seem to be relevant, with r-squared overall about 0.3-0.5 for both log and non log. This changes to similar r-squareds, but occupants per room also starts to be relevant instead of population density, as time moves on. Sometimes the demographic variables do not have significant p values in the log version, or when you exclude ones that start below 10 cases.
At a visits start date of 2020-04-20, only occupants per room has a significant p value for change in cases, with r-squared 0.65. For change in log of cases, only visits has a significant p value, with r-squared of 0.5. Neither have significant p values when you exclude ones that start below 10 cases, however. A visits start date of 2020-05-11 has similar values but ONLY for change in cases, with visits, income, and occupants per room relevant, but none have significant p values for the change in log of cases and the multiple r-squared for the demographics correlation is very low. However, when you exxclude ones that start below 10 cases, the change in log of cases does have significant p values for visits and occupants per room, and the r-squared goes up to 0.4.
The last two weeks show high r-squareds as well for the demographic correlations for change in cases; specifically income, occupants per room, and units per structure seem relevant for change in cases. Change in log of cases has lower r-squareds for these weeks. Average median age may also start to become relevant in some of the last week models.
I’ll now plot how the model fit values change with each week. Note that in the graphs below, each data point represents the values from a model that uses the week of visits data starting on the date shown on the x axis, and the change in cases over the week that starts two weeks after the visits start date.
model_results_1 %>%
plot_ly() %>%
add_trace(x = ~visits_start_date, y = ~r_squared, type = 'scatter', mode = 'markers', color = ~model_type) %>%
add_trace(x = ~visits_start_date, y = ~r_squared, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "R squared for that model"), title = "R squared over time, 1 week time interval, 14 day lag, Alameda")
model_results_1 %>%
plot_ly() %>%
add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'markers', color = ~model_type) %>%
add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "Visits coefficient for that model"), title = "Visits coefficient over time, 1 week time interval, 14 day lag, Alameda")
# split the log and not log for coefficient since log coefficient is much larger
model_results_1 %>% filter(model_type != "change in log of cases, starting above 0" & model_type != "change in log of cases, starting above 10") %>%
plot_ly() %>%
add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'markers', color = ~model_type) %>%
add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "Visits coefficient for that model"), title = "Visits coefficient over time, 1 week time interval, 14 day lag, only non log, Alameda")
model_results_1 %>%
plot_ly() %>%
add_trace(x = ~visits_start_date, y = ~p_val, type = 'scatter', mode = 'markers', color = ~model_type) %>%
add_trace(x = ~visits_start_date, y = ~p_val, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "P value of coefficient for that model"), title = "P value of coefficient over time, 1 week time interval, 14 day lag, Alameda")
It does indeed seem that the models are much better in late March and early April, and drop off in ability starting in late April or early May. Which would be consistent with a hypothesized regime change.
However, I’m still not sure how much the fact that in the early time frames numbers of cases were very low would affect these results or the ability to interpret them. The change in log would be affected more drastically by going from a very small number to a slightly less small number (i.e. in the early phases of case growth), so this might mean that in the earlier weeks, zip codes with some case growth that start from a very low level of cases per person have their effects overstated in the models. I’m not sure if this is an issue or not.
I’m also generally unsure about which of the five models I used makes the most sense to look at, which is why I included all five for comparison.
ac_cases_zip_week <- ac_cases_zip %>%
filter(date >= as.Date("2020-03-23")) %>%
filter(as.numeric((date - as.Date("2020-03-23"))) %% 7 == 0) %>%
mutate(log_cases_by_pop = log(cases_by_pop)) %>%
group_by(zipcode) %>%
mutate(change_cases_by_pop = c(NA, diff(cases_by_pop)),
change_log_cases_by_pop = c(NA, diff(log_cases_by_pop)))
ac_cases_zip_week_avg <- ac_cases_zip_week %>%
group_by(date) %>%
summarize(avg_change_cases_by_pop = mean(change_cases_by_pop),
avg_change_log_cases_by_pop = mean(change_log_cases_by_pop))
plot_ly() %>%
add_trace(x = ~date, y = ~change_cases_by_pop, data = ac_cases_zip_week, type = 'scatter', mode = 'markers', color = ~zipcode) %>%
add_trace(x = ~date, y = ~avg_change_cases_by_pop, data = ac_cases_zip_week_avg, type = "scatter", mode = "markers", marker = list(color = "rgb(0, 0, 0)"), name = "average") %>%
layout(xaxis = list(title = "Date"), yaxis = list(title = "Change in cases per person relative to a week ago"), title = "Weekly change in cases per person over time")
It is true that there are a few zip codes that have much larger weekly changes in cases as time goes on, but for most of the zip codes the change in cases range is not too different from April through June. However, these few zip codes might have an impact, and this could be relevant? Aside from those, though, it seems that things are mostly on the same scale from early April through mid June.
plot_ly() %>%
add_trace(x = ~date, y = ~change_log_cases_by_pop, data = ac_cases_zip_week, type = 'scatter', mode = 'markers', color = ~zipcode) %>%
add_trace(x = ~date, y = ~avg_change_log_cases_by_pop, data = ac_cases_zip_week_avg, type = "scatter", mode = "markers", marker = list(color = "rgb(0, 0, 0)"), name = "average") %>%
layout(xaxis = list(title = "Date"), yaxis = list(title = "Change in log(cases per person) relative to a week ago"), title = "Weekly change in log of cases per person over time")
With the change in log of cases, actually, it’s the reverse, that the big changes occur early on (which makes sense, since the log of a very small number changing to the log of a slightly smaller number can have a big impact). But mid April through early June all seems relatively similar in scale.
ac_visits_week <- ac_visits_zip %>%
mutate(week_num = floor((date - as.Date("2020-03-09")) / 7 + 1)) %>%
group_by(zipcode, week_num) %>%
summarize(visits_per_capita_week = sum(visits_per_capita))
ac_visits_week_avg <- ac_visits_week %>%
filter(!is.na(visits_per_capita_week)) %>%
group_by(week_num) %>%
summarize(avg_visits_per_capita = mean(visits_per_capita_week))
plot_ly() %>%
add_trace(x = ~week_num, y = ~visits_per_capita_week, data = ac_visits_week, type = 'scatter', mode = 'markers', color = ~zipcode) %>%
add_trace(x = ~week_num, y = ~avg_visits_per_capita, data = ac_visits_week_avg, type = "scatter", mode = "markers", marker = list(color = "rgb(0, 0, 0)"), name = "average") %>%
layout(xaxis = list(title = "Week number (week 1 = week of 3/9)"), yaxis = list(title = "Total weekly visits per person"), title = "Weekly visits per person over time")
Repeat but for a date range of 2 weeks.
cases_start_date <- as.Date("2020-03-23") # first cases start date to use
visits_lag <- 14 # in days
time_window_length <- 14 # in days
# data frame to store results
model_results_2 <- data.frame(model_type = character(), coef_val = numeric(), p_val = numeric(), r_squared = numeric(), cases_start_date = character(), stringsAsFactors = FALSE)
while(cases_start_date + time_window_length <= max(ac_cases_zip$date)) {
model_results_curr <- testVisitsPrediction(ac_visits_zip, ac_cases_zip, cases_start_date, time_window_length, visits_lag, ac_dem_data, "Alameda")
model_results_2 <- rbind(model_results_2, model_results_curr)
cases_start_date <- cases_start_date + time_window_length # run again with new start date
}
## [1] "Cases start date: 2020-03-23"
## [1] "Visits start date: 2020-03-09"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.041e-04 -1.726e-04 -5.122e-05 1.457e-04 5.514e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -7.016e-05 1.848e-04 -0.380 0.7060
## total_visits_per_capita 2.714e-05 1.548e-05 1.753 0.0865 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002195 on 44 degrees of freedom
## Multiple R-squared: 0.0653, Adjusted R-squared: 0.04405
## F-statistic: 3.074 on 1 and 44 DF, p-value: 0.08653
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.942e-04 -1.010e-04 -2.948e-05 7.064e-05 4.755e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.390e-05 1.013e-03 -0.033 0.97347
## total_visits_per_capita -2.989e-06 2.114e-05 -0.141 0.88829
## percent_under_125000 7.102e-06 3.385e-06 2.098 0.04259 *
## avg_household_size 1.589e-04 2.242e-04 0.709 0.48284
## pop_density -6.428e-02 1.874e-02 -3.430 0.00147 **
## `percent more than 1 occupant` -1.173e-05 1.567e-05 -0.749 0.45873
## `percent more than 1 unit` 1.903e-06 3.892e-06 0.489 0.62758
## avg_median_age -1.011e-05 1.106e-05 -0.914 0.36653
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001897 on 38 degrees of freedom
## Multiple R-squared: 0.3971, Adjusted R-squared: 0.2861
## F-statistic: 3.576 on 7 and 38 DF, p-value: 0.004735
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.143e-04 -1.475e-04 -6.505e-05 1.088e-04 5.541e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.937e-04 2.022e-04 -1.453 0.155
## total_visits_per_capita 4.408e-05 1.672e-05 2.637 0.012 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002142 on 38 degrees of freedom
## Multiple R-squared: 0.1547, Adjusted R-squared: 0.1324
## F-statistic: 6.954 on 1 and 38 DF, p-value: 0.01205
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.324e-04 -9.394e-05 -1.442e-05 7.081e-05 3.786e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.839e-04 1.016e-03 -0.181 0.85755
## total_visits_per_capita 2.773e-06 2.245e-05 0.124 0.90248
## percent_under_125000 7.160e-06 3.411e-06 2.099 0.04377 *
## avg_household_size 8.481e-05 2.260e-04 0.375 0.70999
## pop_density -6.689e-02 2.211e-02 -3.025 0.00487 **
## `percent more than 1 occupant` 4.422e-06 1.743e-05 0.254 0.80135
## `percent more than 1 unit` 6.989e-07 3.911e-06 0.179 0.85928
## avg_median_age -4.390e-06 1.164e-05 -0.377 0.70864
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001849 on 32 degrees of freedom
## Multiple R-squared: 0.4698, Adjusted R-squared: 0.3538
## F-statistic: 4.051 on 7 and 32 DF, p-value: 0.00278
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.21781 -0.32631 -0.06563 0.33129 1.60820
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.42113 0.56010 -2.537 0.015398 *
## total_visits_per_capita 0.19135 0.04631 4.132 0.000191 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.5934 on 38 degrees of freedom
## Multiple R-squared: 0.31, Adjusted R-squared: 0.2918
## F-statistic: 17.07 on 1 and 38 DF, p-value: 0.0001907
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.09594 -0.21190 0.02201 0.26225 0.89674
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.825e+00 2.695e+00 -1.048 0.30249
## total_visits_per_capita 8.091e-02 5.955e-02 1.359 0.18376
## percent_under_125000 1.278e-02 9.048e-03 1.412 0.16759
## avg_household_size 3.399e-01 5.996e-01 0.567 0.57477
## pop_density -1.624e+02 5.865e+01 -2.769 0.00928 **
## `percent more than 1 occupant` 4.838e-02 4.623e-02 1.046 0.30321
## `percent more than 1 unit` 8.161e-03 1.037e-02 0.787 0.43720
## avg_median_age 2.011e-02 3.088e-02 0.651 0.51962
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.4903 on 32 degrees of freedom
## Multiple R-squared: 0.6032, Adjusted R-squared: 0.5164
## F-statistic: 6.95 on 7 and 32 DF, p-value: 4.689e-05
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
##
## Coefficients: (1 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0003758 NA NA NA
## total_visits_per_capita NA NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
##
## Coefficients: (7 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0003758 NA NA NA
## total_visits_per_capita NA NA NA NA
## percent_under_125000 NA NA NA NA
## avg_household_size NA NA NA NA
## pop_density NA NA NA NA
## `percent more than 1 occupant` NA NA NA NA
## `percent more than 1 unit` NA NA NA NA
## avg_median_age NA NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
##
## Coefficients: (1 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.9163 NA NA NA
## total_visits_per_capita NA NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
##
## Coefficients: (7 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.9163 NA NA NA
## total_visits_per_capita NA NA NA NA
## percent_under_125000 NA NA NA NA
## avg_household_size NA NA NA NA
## pop_density NA NA NA NA
## `percent more than 1 occupant` NA NA NA NA
## `percent more than 1 unit` NA NA NA NA
## avg_median_age NA NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
##
## [1] "Cases start date: 2020-04-06"
## [1] "Visits start date: 2020-03-23"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.583e-04 -1.959e-04 -6.233e-05 1.660e-04 1.320e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.112e-04 2.135e-04 -1.927 0.06051 .
## total_visits_per_capita 8.558e-05 2.463e-05 3.474 0.00116 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003174 on 44 degrees of freedom
## Multiple R-squared: 0.2153, Adjusted R-squared: 0.1974
## F-statistic: 12.07 on 1 and 44 DF, p-value: 0.001163
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.149e-04 -1.628e-04 -4.777e-05 8.884e-05 1.082e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 5.376e-04 1.508e-03 0.357 0.7234
## total_visits_per_capita 4.159e-06 3.853e-05 0.108 0.9146
## percent_under_125000 1.397e-05 5.248e-06 2.661 0.0113 *
## avg_household_size -2.444e-04 3.214e-04 -0.760 0.4517
## pop_density -4.679e-02 3.033e-02 -1.543 0.1312
## `percent more than 1 occupant` 3.002e-05 2.312e-05 1.298 0.2021
## `percent more than 1 unit` -8.070e-06 5.759e-06 -1.401 0.1692
## avg_median_age -5.519e-06 1.718e-05 -0.321 0.7497
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000279 on 38 degrees of freedom
## Multiple R-squared: 0.4765, Adjusted R-squared: 0.3801
## F-statistic: 4.942 on 7 and 38 DF, p-value: 0.0004837
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.583e-04 -1.959e-04 -6.233e-05 1.660e-04 1.320e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.112e-04 2.135e-04 -1.927 0.06051 .
## total_visits_per_capita 8.558e-05 2.463e-05 3.474 0.00116 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003174 on 44 degrees of freedom
## Multiple R-squared: 0.2153, Adjusted R-squared: 0.1974
## F-statistic: 12.07 on 1 and 44 DF, p-value: 0.001163
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.149e-04 -1.628e-04 -4.777e-05 8.884e-05 1.082e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 5.376e-04 1.508e-03 0.357 0.7234
## total_visits_per_capita 4.159e-06 3.853e-05 0.108 0.9146
## percent_under_125000 1.397e-05 5.248e-06 2.661 0.0113 *
## avg_household_size -2.444e-04 3.214e-04 -0.760 0.4517
## pop_density -4.679e-02 3.033e-02 -1.543 0.1312
## `percent more than 1 occupant` 3.002e-05 2.312e-05 1.298 0.2021
## `percent more than 1 unit` -8.070e-06 5.759e-06 -1.401 0.1692
## avg_median_age -5.519e-06 1.718e-05 -0.321 0.7497
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000279 on 38 degrees of freedom
## Multiple R-squared: 0.4765, Adjusted R-squared: 0.3801
## F-statistic: 4.942 on 7 and 38 DF, p-value: 0.0004837
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.58162 -0.31256 -0.06348 0.13711 0.81733
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.52388 0.26758 -1.958 0.056611 .
## total_visits_per_capita 0.12047 0.03088 3.901 0.000324 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.3979 on 44 degrees of freedom
## Multiple R-squared: 0.257, Adjusted R-squared: 0.2401
## F-statistic: 15.22 on 1 and 44 DF, p-value: 0.0003239
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.45827 -0.25112 -0.08958 0.14725 1.10073
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.991600 1.996233 -0.998 0.325
## total_visits_per_capita 0.067960 0.051020 1.332 0.191
## percent_under_125000 0.009830 0.006950 1.415 0.165
## avg_household_size 0.127410 0.425589 0.299 0.766
## pop_density 13.009112 40.163206 0.324 0.748
## `percent more than 1 occupant` 0.020214 0.030619 0.660 0.513
## `percent more than 1 unit` 0.001020 0.007625 0.134 0.894
## avg_median_age 0.018648 0.022744 0.820 0.417
##
## Residual standard error: 0.3694 on 38 degrees of freedom
## Multiple R-squared: 0.447, Adjusted R-squared: 0.3452
## F-statistic: 4.388 on 7 and 38 DF, p-value: 0.00119
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0004875 -0.0002281 -0.0001163 0.0001903 0.0012688
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.841e-04 5.646e-04 -0.503 0.619
## total_visits_per_capita 7.632e-05 5.969e-05 1.278 0.212
##
## Residual standard error: 0.000367 on 28 degrees of freedom
## Multiple R-squared: 0.05515, Adjusted R-squared: 0.02141
## F-statistic: 1.634 on 1 and 28 DF, p-value: 0.2116
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.267e-04 -1.634e-04 -4.130e-05 8.205e-05 8.504e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.757e-03 2.146e-03 0.819 0.4217
## total_visits_per_capita -2.625e-05 7.179e-05 -0.366 0.7181
## percent_under_125000 1.591e-05 6.879e-06 2.313 0.0305 *
## avg_household_size -5.703e-04 5.475e-04 -1.042 0.3089
## pop_density -1.119e-01 5.946e-02 -1.882 0.0732 .
## `percent more than 1 occupant` 5.787e-05 4.346e-05 1.331 0.1967
## `percent more than 1 unit` -1.400e-05 8.673e-06 -1.614 0.1208
## avg_median_age -4.409e-06 2.736e-05 -0.161 0.8734
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003172 on 22 degrees of freedom
## Multiple R-squared: 0.4456, Adjusted R-squared: 0.2692
## F-statistic: 2.526 on 7 and 22 DF, p-value: 0.04553
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.62132 -0.22889 -0.08475 0.09513 0.80197
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.59278 0.60770 -0.975 0.3377
## total_visits_per_capita 0.13076 0.06425 2.035 0.0514 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.395 on 28 degrees of freedom
## Multiple R-squared: 0.1289, Adjusted R-squared: 0.09775
## F-statistic: 4.142 on 1 and 28 DF, p-value: 0.0514
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.37693 -0.20451 -0.09016 0.07250 1.06417
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.536733 2.540835 0.605 0.551
## total_visits_per_capita 0.024495 0.085011 0.288 0.776
## percent_under_125000 0.007228 0.008146 0.887 0.384
## avg_household_size -0.362199 0.648300 -0.559 0.582
## pop_density -20.984893 70.411022 -0.298 0.768
## `percent more than 1 occupant` 0.048832 0.051466 0.949 0.353
## `percent more than 1 unit` -0.008722 0.010270 -0.849 0.405
## avg_median_age -0.015182 0.032391 -0.469 0.644
##
## Residual standard error: 0.3755 on 22 degrees of freedom
## Multiple R-squared: 0.3814, Adjusted R-squared: 0.1845
## F-statistic: 1.937 on 7 and 22 DF, p-value: 0.1116
##
## [1] "Cases start date: 2020-04-20"
## [1] "Visits start date: 2020-04-06"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.371e-04 -2.076e-04 -7.195e-05 5.372e-05 1.022e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.205e-04 1.918e-04 -1.671 0.10181
## total_visits_per_capita 7.034e-05 2.253e-05 3.123 0.00317 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002991 on 44 degrees of freedom
## Multiple R-squared: 0.1814, Adjusted R-squared: 0.1628
## F-statistic: 9.751 on 1 and 44 DF, p-value: 0.003166
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.998e-04 -1.296e-04 -3.399e-05 9.847e-05 8.263e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.107e-03 1.318e-03 0.840 0.4061
## total_visits_per_capita 8.465e-06 3.039e-05 0.279 0.7821
## percent_under_125000 9.550e-06 4.606e-06 2.074 0.0450 *
## avg_household_size -4.685e-04 2.855e-04 -1.641 0.1090
## pop_density -3.649e-02 2.614e-02 -1.396 0.1709
## `percent more than 1 occupant` 5.404e-05 2.007e-05 2.693 0.0105 *
## `percent more than 1 unit` -8.428e-06 5.057e-06 -1.666 0.1039
## avg_median_age -3.620e-06 1.455e-05 -0.249 0.8048
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002441 on 38 degrees of freedom
## Multiple R-squared: 0.529, Adjusted R-squared: 0.4422
## F-statistic: 6.097 on 7 and 38 DF, p-value: 8.228e-05
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.371e-04 -2.076e-04 -7.195e-05 5.372e-05 1.022e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.205e-04 1.918e-04 -1.671 0.10181
## total_visits_per_capita 7.034e-05 2.253e-05 3.123 0.00317 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002991 on 44 degrees of freedom
## Multiple R-squared: 0.1814, Adjusted R-squared: 0.1628
## F-statistic: 9.751 on 1 and 44 DF, p-value: 0.003166
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.998e-04 -1.296e-04 -3.399e-05 9.847e-05 8.263e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.107e-03 1.318e-03 0.840 0.4061
## total_visits_per_capita 8.465e-06 3.039e-05 0.279 0.7821
## percent_under_125000 9.550e-06 4.606e-06 2.074 0.0450 *
## avg_household_size -4.685e-04 2.855e-04 -1.641 0.1090
## pop_density -3.649e-02 2.614e-02 -1.396 0.1709
## `percent more than 1 occupant` 5.404e-05 2.007e-05 2.693 0.0105 *
## `percent more than 1 unit` -8.428e-06 5.057e-06 -1.666 0.1039
## avg_median_age -3.620e-06 1.455e-05 -0.249 0.8048
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002441 on 38 degrees of freedom
## Multiple R-squared: 0.529, Adjusted R-squared: 0.4422
## F-statistic: 6.097 on 7 and 38 DF, p-value: 8.228e-05
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.28064 -0.11727 -0.05565 0.05360 0.51807
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.14037 0.12555 -1.118 0.26964
## total_visits_per_capita 0.04698 0.01475 3.185 0.00266 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1958 on 44 degrees of freedom
## Multiple R-squared: 0.1874, Adjusted R-squared: 0.1689
## F-statistic: 10.15 on 1 and 44 DF, p-value: 0.002657
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.23848 -0.09881 -0.06119 0.06594 0.59522
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.235727 1.026513 -0.230 0.8196
## total_visits_per_capita 0.042821 0.023668 1.809 0.0783 .
## percent_under_125000 0.003061 0.003587 0.853 0.3988
## avg_household_size -0.140705 0.222308 -0.633 0.5306
## pop_density 8.042524 20.359053 0.395 0.6950
## `percent more than 1 occupant` 0.016885 0.015628 1.080 0.2868
## `percent more than 1 unit` -0.001150 0.003938 -0.292 0.7718
## avg_median_age 0.006208 0.011328 0.548 0.5869
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1901 on 38 degrees of freedom
## Multiple R-squared: 0.3384, Adjusted R-squared: 0.2165
## F-statistic: 2.776 on 7 and 38 DF, p-value: 0.01962
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.588e-04 -2.354e-04 -1.047e-04 6.654e-05 1.006e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.359e-04 4.492e-04 -0.748 0.46
## total_visits_per_capita 7.408e-05 4.895e-05 1.514 0.14
##
## Residual standard error: 0.0003382 on 32 degrees of freedom
## Multiple R-squared: 0.06681, Adjusted R-squared: 0.03765
## F-statistic: 2.291 on 1 and 32 DF, p-value: 0.1399
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -5.171e-04 -1.477e-04 -4.167e-05 7.415e-05 7.458e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.666e-03 1.637e-03 1.018 0.3180
## total_visits_per_capita -3.333e-05 6.296e-05 -0.529 0.6010
## percent_under_125000 1.071e-05 5.431e-06 1.972 0.0594 .
## avg_household_size -4.965e-04 3.816e-04 -1.301 0.2046
## pop_density -6.009e-02 3.789e-02 -1.586 0.1249
## `percent more than 1 occupant` 5.781e-05 2.869e-05 2.015 0.0543 .
## `percent more than 1 unit` -8.117e-06 6.780e-06 -1.197 0.2420
## avg_median_age -7.361e-06 2.077e-05 -0.354 0.7260
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002714 on 26 degrees of freedom
## Multiple R-squared: 0.5117, Adjusted R-squared: 0.3802
## F-statistic: 3.892 on 7 and 26 DF, p-value: 0.005004
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.23367 -0.10788 -0.04093 0.09698 0.52535
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.04428 0.22886 0.193 0.848
## total_visits_per_capita 0.02765 0.02494 1.109 0.276
##
## Residual standard error: 0.1723 on 32 degrees of freedom
## Multiple R-squared: 0.037, Adjusted R-squared: 0.006908
## F-statistic: 1.23 on 1 and 32 DF, p-value: 0.2758
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.22515 -0.06085 -0.03200 0.05749 0.30223
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.392416 0.830987 0.472 0.641
## total_visits_per_capita 0.022688 0.031968 0.710 0.484
## percent_under_125000 0.002033 0.002757 0.737 0.468
## avg_household_size -0.098288 0.193756 -0.507 0.616
## pop_density -0.280138 19.238394 -0.015 0.988
## `percent more than 1 occupant` 0.013350 0.014567 0.916 0.368
## `percent more than 1 unit` 0.001170 0.003442 0.340 0.737
## avg_median_age -0.007805 0.010548 -0.740 0.466
##
## Residual standard error: 0.1378 on 26 degrees of freedom
## Multiple R-squared: 0.4995, Adjusted R-squared: 0.3647
## F-statistic: 3.707 on 7 and 26 DF, p-value: 0.00655
##
## [1] "Cases start date: 2020-05-04"
## [1] "Visits start date: 2020-04-20"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.942e-04 -2.604e-04 -8.277e-05 9.431e-05 1.692e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.775e-04 2.563e-04 -1.473 0.14781
## total_visits_per_capita 8.237e-05 2.872e-05 2.868 0.00631 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0004008 on 44 degrees of freedom
## Multiple R-squared: 0.1575, Adjusted R-squared: 0.1384
## F-statistic: 8.228 on 1 and 44 DF, p-value: 0.006312
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -6.101e-04 -1.468e-04 -2.338e-05 1.336e-04 8.640e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.179e-04 1.456e-03 -0.150 0.88185
## total_visits_per_capita 7.013e-06 3.308e-05 0.212 0.83322
## percent_under_125000 1.024e-05 5.305e-06 1.930 0.06114 .
## avg_household_size -2.488e-04 3.139e-04 -0.793 0.43288
## pop_density 1.641e-02 2.970e-02 0.553 0.58369
## `percent more than 1 occupant` 6.796e-05 2.234e-05 3.043 0.00424 **
## `percent more than 1 unit` -7.787e-06 5.570e-06 -1.398 0.17024
## avg_median_age 8.852e-06 1.602e-05 0.552 0.58386
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002715 on 38 degrees of freedom
## Multiple R-squared: 0.6661, Adjusted R-squared: 0.6046
## F-statistic: 10.83 on 7 and 38 DF, p-value: 2.017e-07
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.942e-04 -2.604e-04 -8.277e-05 9.431e-05 1.692e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.775e-04 2.563e-04 -1.473 0.14781
## total_visits_per_capita 8.237e-05 2.872e-05 2.868 0.00631 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0004008 on 44 degrees of freedom
## Multiple R-squared: 0.1575, Adjusted R-squared: 0.1384
## F-statistic: 8.228 on 1 and 44 DF, p-value: 0.006312
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -6.101e-04 -1.468e-04 -2.338e-05 1.336e-04 8.640e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.179e-04 1.456e-03 -0.150 0.88185
## total_visits_per_capita 7.013e-06 3.308e-05 0.212 0.83322
## percent_under_125000 1.024e-05 5.305e-06 1.930 0.06114 .
## avg_household_size -2.488e-04 3.139e-04 -0.793 0.43288
## pop_density 1.641e-02 2.970e-02 0.553 0.58369
## `percent more than 1 occupant` 6.796e-05 2.234e-05 3.043 0.00424 **
## `percent more than 1 unit` -7.787e-06 5.570e-06 -1.398 0.17024
## avg_median_age 8.852e-06 1.602e-05 0.552 0.58386
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002715 on 38 degrees of freedom
## Multiple R-squared: 0.6661, Adjusted R-squared: 0.6046
## F-statistic: 10.83 on 7 and 38 DF, p-value: 2.017e-07
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.26650 -0.16091 -0.05792 0.09496 0.56972
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.07937 0.13326 0.596 0.555
## total_visits_per_capita 0.01768 0.01493 1.184 0.243
##
## Residual standard error: 0.2084 on 44 degrees of freedom
## Multiple R-squared: 0.03089, Adjusted R-squared: 0.008862
## F-statistic: 1.402 on 1 and 44 DF, p-value: 0.2427
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.31347 -0.08291 -0.01794 0.09641 0.38555
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.8309490 0.8322853 -0.998 0.324
## total_visits_per_capita 0.0077586 0.0189074 0.410 0.684
## percent_under_125000 0.0042229 0.0030324 1.393 0.172
## avg_household_size 0.1209979 0.1794275 0.674 0.504
## pop_density 38.7726066 16.9752983 2.284 0.028 *
## `percent more than 1 occupant` 0.0074103 0.0127685 0.580 0.565
## `percent more than 1 unit` 0.0002723 0.0031840 0.086 0.932
## avg_median_age 0.0057910 0.0091590 0.632 0.531
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1552 on 38 degrees of freedom
## Multiple R-squared: 0.5359, Adjusted R-squared: 0.4504
## F-statistic: 6.269 on 7 and 38 DF, p-value: 6.396e-05
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -5.275e-04 -2.853e-04 -9.491e-05 9.463e-05 1.662e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.999e-04 5.292e-04 -0.756 0.455
## total_visits_per_capita 8.763e-05 5.554e-05 1.578 0.124
##
## Residual standard error: 0.0004394 on 34 degrees of freedom
## Multiple R-squared: 0.06821, Adjusted R-squared: 0.04081
## F-statistic: 2.489 on 1 and 34 DF, p-value: 0.1239
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -5.533e-04 -1.573e-04 -5.257e-05 1.681e-04 8.502e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 5.142e-04 1.716e-03 0.300 0.7667
## total_visits_per_capita -5.762e-05 6.807e-05 -0.846 0.4045
## percent_under_125000 1.174e-05 6.334e-06 1.854 0.0743 .
## avg_household_size 3.954e-06 4.022e-04 0.010 0.9922
## pop_density 1.929e-02 4.481e-02 0.431 0.6700
## `percent more than 1 occupant` 4.604e-05 3.054e-05 1.508 0.1429
## `percent more than 1 unit` -6.051e-06 7.035e-06 -0.860 0.3970
## avg_median_age -1.271e-05 2.176e-05 -0.584 0.5636
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002887 on 28 degrees of freedom
## Multiple R-squared: 0.6688, Adjusted R-squared: 0.586
## F-statistic: 8.078 on 7 and 28 DF, p-value: 2.243e-05
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.28187 -0.12476 -0.03656 0.07025 0.52544
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.249504 0.225992 1.104 0.277
## total_visits_per_capita 0.003059 0.023718 0.129 0.898
##
## Residual standard error: 0.1877 on 34 degrees of freedom
## Multiple R-squared: 0.0004889, Adjusted R-squared: -0.02891
## F-statistic: 0.01663 on 1 and 34 DF, p-value: 0.8982
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.27592 -0.08846 -0.02511 0.08044 0.33614
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.1268761 0.8593468 -0.148 0.884
## total_visits_per_capita -0.0168713 0.0340848 -0.495 0.624
## percent_under_125000 0.0048755 0.0031717 1.537 0.135
## avg_household_size 0.0860445 0.2014036 0.427 0.672
## pop_density 33.6119251 22.4364468 1.498 0.145
## `percent more than 1 occupant` 0.0031704 0.0152909 0.207 0.837
## `percent more than 1 unit` -0.0007145 0.0035228 -0.203 0.841
## avg_median_age -0.0020794 0.0108935 -0.191 0.850
##
## Residual standard error: 0.1446 on 28 degrees of freedom
## Multiple R-squared: 0.5115, Adjusted R-squared: 0.3894
## F-statistic: 4.189 on 7 and 28 DF, p-value: 0.002858
##
## [1] "Cases start date: 2020-05-18"
## [1] "Visits start date: 2020-05-04"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0006781 -0.0004159 -0.0001639 0.0001255 0.0035315
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.876e-04 4.570e-04 -0.629 0.5324
## total_visits_per_capita 9.616e-05 5.371e-05 1.790 0.0803 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0007323 on 44 degrees of freedom
## Multiple R-squared: 0.0679, Adjusted R-squared: 0.04672
## F-statistic: 3.205 on 1 and 44 DF, p-value: 0.08028
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -8.438e-04 -3.020e-04 1.055e-05 2.237e-04 2.083e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.382e-05 2.687e-03 0.013 0.9900
## total_visits_per_capita -7.888e-05 6.402e-05 -1.232 0.2255
## percent_under_125000 2.269e-05 9.460e-06 2.399 0.0215 *
## avg_household_size -2.916e-04 6.076e-04 -0.480 0.6340
## pop_density -2.080e-02 5.429e-02 -0.383 0.7038
## `percent more than 1 occupant` 1.123e-04 4.206e-05 2.669 0.0111 *
## `percent more than 1 unit` -1.520e-05 1.035e-05 -1.469 0.1500
## avg_median_age 1.026e-05 2.925e-05 0.351 0.7276
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0005017 on 38 degrees of freedom
## Multiple R-squared: 0.6222, Adjusted R-squared: 0.5527
## F-statistic: 8.942 on 7 and 38 DF, p-value: 1.801e-06
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0006781 -0.0004159 -0.0001639 0.0001255 0.0035315
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.876e-04 4.570e-04 -0.629 0.5324
## total_visits_per_capita 9.616e-05 5.371e-05 1.790 0.0803 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0007323 on 44 degrees of freedom
## Multiple R-squared: 0.0679, Adjusted R-squared: 0.04672
## F-statistic: 3.205 on 1 and 44 DF, p-value: 0.08028
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -8.438e-04 -3.020e-04 1.055e-05 2.237e-04 2.083e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.382e-05 2.687e-03 0.013 0.9900
## total_visits_per_capita -7.888e-05 6.402e-05 -1.232 0.2255
## percent_under_125000 2.269e-05 9.460e-06 2.399 0.0215 *
## avg_household_size -2.916e-04 6.076e-04 -0.480 0.6340
## pop_density -2.080e-02 5.429e-02 -0.383 0.7038
## `percent more than 1 occupant` 1.123e-04 4.206e-05 2.669 0.0111 *
## `percent more than 1 unit` -1.520e-05 1.035e-05 -1.469 0.1500
## avg_median_age 1.026e-05 2.925e-05 0.351 0.7276
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0005017 on 38 degrees of freedom
## Multiple R-squared: 0.6222, Adjusted R-squared: 0.5527
## F-statistic: 8.942 on 7 and 38 DF, p-value: 1.801e-06
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.25860 -0.15600 -0.04478 0.06683 0.64433
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.14082 0.13243 1.063 0.293
## total_visits_per_capita 0.01530 0.01557 0.983 0.331
##
## Residual standard error: 0.2123 on 44 degrees of freedom
## Multiple R-squared: 0.02148, Adjusted R-squared: -0.0007619
## F-statistic: 0.9657 on 1 and 44 DF, p-value: 0.3311
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.26169 -0.13306 -0.04228 0.09905 0.61924
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.855e-01 1.097e+00 -0.169 0.8666
## total_visits_per_capita -1.724e-02 2.613e-02 -0.660 0.5133
## percent_under_125000 7.302e-03 3.861e-03 1.891 0.0663 .
## avg_household_size 1.051e-01 2.480e-01 0.424 0.6740
## pop_density -1.955e+01 2.216e+01 -0.882 0.3831
## `percent more than 1 occupant` -3.200e-03 1.717e-02 -0.186 0.8531
## `percent more than 1 unit` -1.856e-05 4.224e-03 -0.004 0.9965
## avg_median_age -2.109e-03 1.194e-02 -0.177 0.8607
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.2048 on 38 degrees of freedom
## Multiple R-squared: 0.2135, Adjusted R-squared: 0.06858
## F-statistic: 1.473 on 7 and 38 DF, p-value: 0.2061
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0006564 -0.0004647 -0.0002551 0.0001235 0.0035028
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.478e-05 7.327e-04 -0.034 0.973
## total_visits_per_capita 6.997e-05 8.139e-05 0.860 0.396
##
## Residual standard error: 0.0008095 on 35 degrees of freedom
## Multiple R-squared: 0.02068, Adjusted R-squared: -0.0073
## F-statistic: 0.7391 on 1 and 35 DF, p-value: 0.3958
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -8.567e-04 -3.449e-04 -7.480e-06 2.139e-04 1.973e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 8.481e-04 3.266e-03 0.260 0.7970
## total_visits_per_capita -1.119e-04 1.125e-04 -0.995 0.3280
## percent_under_125000 2.092e-05 1.109e-05 1.885 0.0695 .
## avg_household_size -5.776e-04 7.262e-04 -0.795 0.4329
## pop_density -4.895e-03 7.996e-02 -0.061 0.9516
## `percent more than 1 occupant` 1.439e-04 5.362e-05 2.684 0.0119 *
## `percent more than 1 unit` -2.234e-05 1.331e-05 -1.678 0.1041
## avg_median_age 2.092e-05 3.502e-05 0.597 0.5548
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0005532 on 29 degrees of freedom
## Multiple R-squared: 0.6211, Adjusted R-squared: 0.5296
## F-statistic: 6.791 on 7 and 29 DF, p-value: 8.303e-05
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.24351 -0.10030 -0.02246 0.07673 0.41295
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.28603 0.14218 2.012 0.052 .
## total_visits_per_capita -0.00168 0.01579 -0.106 0.916
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1571 on 35 degrees of freedom
## Multiple R-squared: 0.000323, Adjusted R-squared: -0.02824
## F-statistic: 0.01131 on 1 and 35 DF, p-value: 0.9159
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.206278 -0.082044 0.009587 0.071389 0.276328
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.345310 0.776266 0.445 0.660
## total_visits_per_capita -0.038414 0.026731 -1.437 0.161
## percent_under_125000 0.004448 0.002637 1.687 0.102
## avg_household_size -0.074477 0.172604 -0.431 0.669
## pop_density 4.550691 19.005247 0.239 0.812
## `percent more than 1 occupant` 0.020447 0.012745 1.604 0.119
## `percent more than 1 unit` -0.004943 0.003164 -1.562 0.129
## avg_median_age 0.005526 0.008322 0.664 0.512
##
## Residual standard error: 0.1315 on 29 degrees of freedom
## Multiple R-squared: 0.4198, Adjusted R-squared: 0.2797
## F-statistic: 2.997 on 7 and 29 DF, p-value: 0.01706
##
## [1] "Cases start date: 2020-06-01"
## [1] "Visits start date: 2020-05-18"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -6.031e-04 -3.433e-04 -1.997e-04 5.794e-05 2.303e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -7.206e-05 4.203e-04 -0.171 0.865
## total_visits_per_capita 6.663e-05 4.956e-05 1.345 0.186
##
## Residual standard error: 0.0006435 on 44 degrees of freedom
## Multiple R-squared: 0.03946, Adjusted R-squared: 0.01763
## F-statistic: 1.808 on 1 and 44 DF, p-value: 0.1857
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -5.435e-04 -2.466e-04 1.422e-05 1.360e-04 8.467e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 6.958e-04 1.701e-03 0.409 0.684820
## total_visits_per_capita -6.317e-05 4.112e-05 -1.536 0.132776
## percent_under_125000 2.136e-05 5.744e-06 3.719 0.000644 ***
## avg_household_size -4.528e-04 3.761e-04 -1.204 0.235978
## pop_density -1.811e-02 3.343e-02 -0.542 0.591135
## `percent more than 1 occupant` 1.142e-04 2.663e-05 4.289 0.000119 ***
## `percent more than 1 unit` -1.762e-05 6.527e-06 -2.700 0.010298 *
## avg_median_age 4.830e-06 1.883e-05 0.257 0.798888
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003185 on 38 degrees of freedom
## Multiple R-squared: 0.7967, Adjusted R-squared: 0.7593
## F-statistic: 21.28 on 7 and 38 DF, p-value: 2.46e-11
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -6.031e-04 -3.433e-04 -1.997e-04 5.794e-05 2.303e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -7.206e-05 4.203e-04 -0.171 0.865
## total_visits_per_capita 6.663e-05 4.956e-05 1.345 0.186
##
## Residual standard error: 0.0006435 on 44 degrees of freedom
## Multiple R-squared: 0.03946, Adjusted R-squared: 0.01763
## F-statistic: 1.808 on 1 and 44 DF, p-value: 0.1857
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -5.435e-04 -2.466e-04 1.422e-05 1.360e-04 8.467e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 6.958e-04 1.701e-03 0.409 0.684820
## total_visits_per_capita -6.317e-05 4.112e-05 -1.536 0.132776
## percent_under_125000 2.136e-05 5.744e-06 3.719 0.000644 ***
## avg_household_size -4.528e-04 3.761e-04 -1.204 0.235978
## pop_density -1.811e-02 3.343e-02 -0.542 0.591135
## `percent more than 1 occupant` 1.142e-04 2.663e-05 4.289 0.000119 ***
## `percent more than 1 unit` -1.762e-05 6.527e-06 -2.700 0.010298 *
## avg_median_age 4.830e-06 1.883e-05 0.257 0.798888
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003185 on 38 degrees of freedom
## Multiple R-squared: 0.7967, Adjusted R-squared: 0.7593
## F-statistic: 21.28 on 7 and 38 DF, p-value: 2.46e-11
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.21683 -0.09673 0.00666 0.06401 0.68370
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.09672 0.09833 0.984 0.331
## total_visits_per_capita 0.01210 0.01159 1.044 0.302
##
## Residual standard error: 0.1505 on 44 degrees of freedom
## Multiple R-squared: 0.02415, Adjusted R-squared: 0.001972
## F-statistic: 1.089 on 1 and 44 DF, p-value: 0.3024
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.15141 -0.09036 -0.01016 0.05753 0.67609
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.229784 0.765444 -0.300 0.766
## total_visits_per_capita 0.014346 0.018502 0.775 0.443
## percent_under_125000 0.002767 0.002584 1.071 0.291
## avg_household_size -0.068050 0.169213 -0.402 0.690
## pop_density 7.550005 15.041103 0.502 0.619
## `percent more than 1 occupant` 0.012705 0.011980 1.061 0.296
## `percent more than 1 unit` -0.000786 0.002937 -0.268 0.790
## avg_median_age 0.006410 0.008471 0.757 0.454
##
## Residual standard error: 0.1433 on 38 degrees of freedom
## Multiple R-squared: 0.2359, Adjusted R-squared: 0.09517
## F-statistic: 1.676 on 7 and 38 DF, p-value: 0.1444
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -5.755e-04 -3.713e-04 -2.123e-04 -2.728e-05 2.255e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.003e-04 5.551e-04 0.541 0.592
## total_visits_per_capita 2.771e-05 6.302e-05 0.440 0.663
##
## Residual standard error: 0.0006802 on 38 degrees of freedom
## Multiple R-squared: 0.005062, Adjusted R-squared: -0.02112
## F-statistic: 0.1933 on 1 and 38 DF, p-value: 0.6626
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0005461 -0.0002520 0.0000014 0.0001606 0.0008236
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.317e-03 2.042e-03 0.645 0.523463
## total_visits_per_capita -9.155e-05 5.875e-05 -1.558 0.128997
## percent_under_125000 2.114e-05 6.311e-06 3.350 0.002081 **
## avg_household_size -5.928e-04 4.290e-04 -1.382 0.176630
## pop_density -2.064e-02 3.775e-02 -0.547 0.588365
## `percent more than 1 occupant` 1.276e-04 3.197e-05 3.991 0.000359 ***
## `percent more than 1 unit` -2.168e-05 8.107e-06 -2.675 0.011688 *
## avg_median_age 7.626e-06 2.117e-05 0.360 0.721042
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000339 on 32 degrees of freedom
## Multiple R-squared: 0.7919, Adjusted R-squared: 0.7464
## F-statistic: 17.4 on 7 and 32 DF, p-value: 2.859e-09
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.196566 -0.051292 0.007189 0.054992 0.235481
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.256192 0.079537 3.221 0.00262 **
## total_visits_per_capita -0.006005 0.009029 -0.665 0.51000
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.09746 on 38 degrees of freedom
## Multiple R-squared: 0.01151, Adjusted R-squared: -0.01451
## F-statistic: 0.4424 on 1 and 38 DF, p-value: 0.51
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.136312 -0.049288 0.001733 0.050991 0.140943
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.173156 0.491068 0.353 0.7267
## total_visits_per_capita -0.019949 0.014130 -1.412 0.1677
## percent_under_125000 0.003273 0.001518 2.156 0.0387 *
## avg_household_size -0.034229 0.103191 -0.332 0.7423
## pop_density -9.204855 9.078596 -1.014 0.3182
## `percent more than 1 occupant` 0.009969 0.007689 1.297 0.2041
## `percent more than 1 unit` -0.001605 0.001950 -0.823 0.4166
## avg_median_age 0.002672 0.005092 0.525 0.6033
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.08153 on 32 degrees of freedom
## Multiple R-squared: 0.4175, Adjusted R-squared: 0.29
## F-statistic: 3.276 on 7 and 32 DF, p-value: 0.009713
##
## [1] "Cases start date: 2020-06-15"
## [1] "Visits start date: 2020-06-01"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0007747 -0.0004039 -0.0001842 0.0001804 0.0021832
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.179e-04 4.274e-04 0.744 0.461
## total_visits_per_capita 5.605e-05 5.265e-05 1.065 0.293
##
## Residual standard error: 0.0007094 on 44 degrees of freedom
## Multiple R-squared: 0.02511, Adjusted R-squared: 0.002956
## F-statistic: 1.133 on 1 and 44 DF, p-value: 0.2929
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -8.442e-04 -2.431e-04 -7.576e-05 2.390e-04 9.914e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.851e-03 2.228e-03 1.728 0.09202 .
## total_visits_per_capita -2.962e-05 5.205e-05 -0.569 0.57272
## percent_under_125000 2.053e-05 7.447e-06 2.757 0.00892 **
## avg_household_size -8.336e-04 4.833e-04 -1.725 0.09269 .
## pop_density -1.110e-01 4.202e-02 -2.643 0.01188 *
## `percent more than 1 occupant` 1.162e-04 3.435e-05 3.384 0.00167 **
## `percent more than 1 unit` -1.985e-05 8.561e-06 -2.319 0.02590 *
## avg_median_age -3.931e-05 2.434e-05 -1.615 0.11449
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0004174 on 38 degrees of freedom
## Multiple R-squared: 0.7085, Adjusted R-squared: 0.6548
## F-statistic: 13.19 on 7 and 38 DF, p-value: 1.768e-08
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0007747 -0.0004039 -0.0001842 0.0001804 0.0021832
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.179e-04 4.274e-04 0.744 0.461
## total_visits_per_capita 5.605e-05 5.265e-05 1.065 0.293
##
## Residual standard error: 0.0007094 on 44 degrees of freedom
## Multiple R-squared: 0.02511, Adjusted R-squared: 0.002956
## F-statistic: 1.133 on 1 and 44 DF, p-value: 0.2929
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -8.442e-04 -2.431e-04 -7.576e-05 2.390e-04 9.914e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.851e-03 2.228e-03 1.728 0.09202 .
## total_visits_per_capita -2.962e-05 5.205e-05 -0.569 0.57272
## percent_under_125000 2.053e-05 7.447e-06 2.757 0.00892 **
## avg_household_size -8.336e-04 4.833e-04 -1.725 0.09269 .
## pop_density -1.110e-01 4.202e-02 -2.643 0.01188 *
## `percent more than 1 occupant` 1.162e-04 3.435e-05 3.384 0.00167 **
## `percent more than 1 unit` -1.985e-05 8.561e-06 -2.319 0.02590 *
## avg_median_age -3.931e-05 2.434e-05 -1.615 0.11449
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0004174 on 38 degrees of freedom
## Multiple R-squared: 0.7085, Adjusted R-squared: 0.6548
## F-statistic: 13.19 on 7 and 38 DF, p-value: 1.768e-08
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.30298 -0.14729 -0.07834 0.05259 0.73230
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.23858 0.14303 1.668 0.102
## total_visits_per_capita 0.01070 0.01762 0.607 0.547
##
## Residual standard error: 0.2374 on 44 degrees of freedom
## Multiple R-squared: 0.00831, Adjusted R-squared: -0.01423
## F-statistic: 0.3687 on 1 and 44 DF, p-value: 0.5468
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.37551 -0.13852 -0.03903 0.06916 0.67750
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.812e+00 1.244e+00 1.457 0.1534
## total_visits_per_capita 1.818e-02 2.907e-02 0.625 0.5354
## percent_under_125000 -4.815e-03 4.159e-03 -1.158 0.2542
## avg_household_size -1.336e-01 2.699e-01 -0.495 0.6234
## pop_density -3.639e+01 2.346e+01 -1.551 0.1292
## `percent more than 1 occupant` -7.632e-04 1.918e-02 -0.040 0.9685
## `percent more than 1 unit` 1.471e-03 4.781e-03 0.308 0.7600
## avg_median_age -2.336e-02 1.359e-02 -1.719 0.0938 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.2331 on 38 degrees of freedom
## Multiple R-squared: 0.1741, Adjusted R-squared: 0.02198
## F-statistic: 1.144 on 7 and 38 DF, p-value: 0.3569
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0007446 -0.0004476 -0.0001842 0.0001661 0.0021106
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 6.637e-04 5.087e-04 1.305 0.200
## total_visits_per_capita 1.950e-05 6.063e-05 0.322 0.749
##
## Residual standard error: 0.0007278 on 39 degrees of freedom
## Multiple R-squared: 0.002646, Adjusted R-squared: -0.02293
## F-statistic: 0.1035 on 1 and 39 DF, p-value: 0.7494
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -8.134e-04 -2.838e-04 -8.889e-05 2.209e-04 9.953e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.176e-03 2.528e-03 1.256 0.2179
## total_visits_per_capita 1.026e-05 7.024e-05 0.146 0.8848
## percent_under_125000 2.390e-05 8.241e-06 2.900 0.0066 **
## avg_household_size -7.621e-04 5.318e-04 -1.433 0.1612
## pop_density -9.631e-02 4.441e-02 -2.169 0.0374 *
## `percent more than 1 occupant` 1.034e-04 4.061e-05 2.547 0.0157 *
## `percent more than 1 unit` -1.809e-05 1.014e-05 -1.784 0.0836 .
## avg_median_age -4.173e-05 2.634e-05 -1.584 0.1227
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0004274 on 33 degrees of freedom
## Multiple R-squared: 0.7089, Adjusted R-squared: 0.6472
## F-statistic: 11.48 on 7 and 33 DF, p-value: 2.744e-07
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.21504 -0.13066 -0.05016 0.05796 0.59859
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.16683 0.13344 1.250 0.219
## total_visits_per_capita 0.01846 0.01590 1.161 0.253
##
## Residual standard error: 0.1909 on 39 degrees of freedom
## Multiple R-squared: 0.03339, Adjusted R-squared: 0.008608
## F-statistic: 1.347 on 1 and 39 DF, p-value: 0.2528
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.39519 -0.07559 -0.01605 0.06503 0.50108
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 8.949e-01 1.051e+00 0.852 0.4006
## total_visits_per_capita 6.646e-02 2.919e-02 2.277 0.0294 *
## percent_under_125000 -6.735e-04 3.425e-03 -0.197 0.8453
## avg_household_size -1.048e-02 2.210e-01 -0.047 0.9625
## pop_density -1.403e+01 1.846e+01 -0.760 0.4527
## `percent more than 1 occupant` -1.937e-02 1.688e-02 -1.148 0.2594
## `percent more than 1 unit` 3.885e-03 4.215e-03 0.922 0.3633
## avg_median_age -2.649e-02 1.095e-02 -2.420 0.0212 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1777 on 33 degrees of freedom
## Multiple R-squared: 0.2917, Adjusted R-squared: 0.1414
## F-statistic: 1.941 on 7 and 33 DF, p-value: 0.0942
model_results_2 <- model_results_2 %>%
mutate(visits_start_date = as.Date(cases_start_date) - visits_lag)
model_results_2 %>%
plot_ly() %>%
add_trace(x = ~visits_start_date, y = ~r_squared, type = 'scatter', mode = 'markers', color = ~model_type) %>%
add_trace(x = ~visits_start_date, y = ~r_squared, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "R squared for that model"), title = "R squared over time, 2 week time interval, 14 day lag")
model_results_2 %>%
plot_ly() %>%
add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'markers', color = ~model_type) %>%
add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "Visits coefficient for that model"), title = "Visits coefficient over time, 2 week time interval, 14 day lag")
# split the log and not log for coefficient since log coefficient is much larger
model_results_2 %>% filter(model_type != "change in log of cases, starting above 0" & model_type != "change in log of cases, starting above 10") %>%
plot_ly() %>%
add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'markers', color = ~model_type) %>%
add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "Visits coefficient for that model"), title = "Visits coefficient over time, 2 week time interval, 14 day lag, only non log")
model_results_2 %>%
plot_ly() %>%
add_trace(x = ~visits_start_date, y = ~p_val, type = 'scatter', mode = 'markers', color = ~model_type) %>%
add_trace(x = ~visits_start_date, y = ~p_val, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "P value of coefficient for that model"), title = "P value of coefficient over time, 2 week time interval, 14 day lag")
This is pretty consistent with the findings for using one week.
I repeat the first of the above two analyses, but for San Francisco county.
# first load relevant zip codes and block groups they contain
# block groups
sf_blockgroups <-
block_groups("CA","San Francisco", cb=F, progress_bar=F) %>%
st_transform('+proj=longlat +datum=WGS84')
sf_bgs <- sf_blockgroups %>% pull(GEOID)
sf_bg_zctas <- sf_blockgroups %>%
st_centroid() %>%
st_join(zctas_94_95) %>%
dplyr::select(GEOID, ZCTA5CE10) %>%
rename(blockgroup = GEOID, zipcode = ZCTA5CE10)
sf_fips <- fips("CA", "San Francisco") %>% substr(3,5)
sf_pop_zip <- pullCensus("B01003_001E", sf_fips) %>%
left_join(sf_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>%
group_by(zipcode) %>%
summarize(total_pop_zip = sum(B01003_001E))
# SF case data
sf_cases_zip <-
read_csv("https://raw.githubusercontent.com/datadesk/california-coronavirus-data/master/latimes-place-totals.csv") %>%
filter(county == 'San Francisco') %>%
rename(cases = confirmed_cases, zipcode = place) %>%
left_join(sf_pop_zip) %>%
mutate(cases_by_pop = cases / total_pop_zip)
# load sf visits data
sf_visits_zip_1 <- readRDS(paste0(sg_path, "weekly-patterns/v2/sf_zip_visits_daily_sum_hourly_03-09-20_05-24-20.rds"))
sf_visits_zip_2 <- readRDS(paste0(sg_path, "weekly-patterns/v2/sf_zip_visits_daily_sum_hourly_05-25-20_06-21-20.rds"))
sf_visits_zip <- rbind(sf_visits_zip_1, sf_visits_zip_2)
# get visits per capita
sf_visits_zip <- sf_visits_zip %>% left_join(sf_pop_zip) %>%
rename(total_visits = total_visits_avg) %>%
mutate(visits_per_capita = total_visits / total_pop_zip)
# get demographic data
sf_pop_bg <- pullCensus("B01003_001E", sf_fips) %>%
rename(total_pop = B01003_001E)
# average household size
sf_avg_household_size <- pullCensus("B25010_001E", sf_fips) %>%
filter(B25010_001E > 0) %>%
left_join(sf_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>%
left_join(sf_pop_bg) %>%
group_by(zipcode) %>%
summarize(avg_household_size = weighted.mean(B25010_001E, total_pop)) %>%
filter(!is.na(zipcode))
# occupants per room
sf_occupants_zip <- pullCensus("group(B25014)", sf_fips) %>%
dplyr::select(-c(contains("EA"),contains("MA"),contains("M"))) %>%
gather(key = "variable", value = "estimate", -blockgroup) %>%
mutate(label = acs_vars$label[match(variable,acs_vars$name)]) %>%
dplyr::select(-variable) %>%
separate(label, into = c(NA, NA, NA,"occupants per room"), sep = "!!") %>%
filter(!is.na(`occupants per room`)) %>%
group_by(blockgroup, `occupants per room`) %>%
summarize(estimate_tot = sum(estimate)) %>%
spread(key = `occupants per room`, value = estimate_tot) %>%
mutate(total_nums = `0.50 or less occupants per room` + `0.51 to 1.00 occupants per room` + `1.01 to 1.50 occupants per room` + `1.51 to 2.00 occupants per room` + `2.01 or more occupants per room`) %>%
left_join(sf_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>%
group_by(zipcode) %>%
summarize(total_nums = sum(total_nums), total_0.5less = sum(`0.50 or less occupants per room`), total_0.5to1 = sum(`0.51 to 1.00 occupants per room`), total_1to1.5 = sum(`1.01 to 1.50 occupants per room`), total_1.5to2 = sum(`1.51 to 2.00 occupants per room`), total_2more = sum(`2.01 or more occupants per room`)) %>%
mutate(`percent more than 1 occupant` = (total_1to1.5 + total_1.5to2 + total_2more) * 100/ total_nums, `percent less than 1 occupant` = (100-`percent more than 1 occupant`), `percent 0.5 or less occupants` = total_0.5less*100/total_nums, `percent more than 0.5 occupants` = (100-`percent 0.5 or less occupants`), `percent more than 2 occupants` = total_2more*100/total_nums)
# population density
sf_pop_density_zip <- sf_cases_zip %>% filter(date == max(date)) %>%
dplyr::select(zipcode, total_pop_zip) %>%
left_join(zctas_94_95, by = c("zipcode" = "ZCTA5CE10")) %>%
st_as_sf() %>%
mutate(zip_area = st_area(.), pop_density = total_pop_zip / zip_area) %>%
filter(!is.na(pop_density))
# bucketed household size
sf_house_size_zip <- pullCensus("group(B11016)", sf_fips) %>%
dplyr::select(-c(contains("EA"),contains("MA"),contains("M"))) %>%
gather(key = "variable", value = "estimate", -blockgroup) %>%
mutate(label = acs_vars$label[match(variable,acs_vars$name)]) %>%
dplyr::select(-variable) %>%
separate(label, into = c(NA, NA, "type", "size"), sep = "!!") %>%
filter(!is.na(type)) %>%
filter(!is.na(size)) %>%
dplyr::select(-type) %>%
group_by(blockgroup, size) %>%
summarize(`total of this size` = sum(estimate)) %>%
spread(key = size, value = `total of this size`) %>%
mutate(total_nums = `1-person household` + `2-person household` + `3-person household` + `4-person household` + `5-person household`+ `6-person household` + `7-or-more person household`) %>%
left_join(sf_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>%
group_by(zipcode) %>%
summarize(total_nums = sum(total_nums), total_1 = sum(`1-person household`), total_2 = sum(`2-person household`), total_3 = sum(`3-person household`), total_4 = sum(`4-person household`), total_5 = sum(`5-person household`), total_6 = sum(`6-person household`), total_7more = sum(`7-or-more person household`)) %>%
mutate(`percent 5 or more` = (total_5 + total_6 + total_7more)* 100/ total_nums, `percent 1 or 2 only` = (total_1 + total_2)*100/total_nums)
# units in structure
sf_units_zip <- pullCensus("group(B25024)", sf_fips) %>% dplyr::select(-c(contains("EA"),contains("MA"),contains("M"))) %>%
gather(key = "variable", value = "estimate", -blockgroup) %>%
mutate(label = acs_vars$label[match(variable,acs_vars$name)]) %>%
dplyr::select(-variable) %>%
separate(label, into = c(NA, NA, "units"), sep = "!!") %>%
filter(!is.na(units)) %>%
spread(key = units, value = estimate) %>%
mutate(total_nums = `1, attached` + `1, detached` + `10 to 19` + `2` + `20 to 49`+ `3 or 4` + `5 to 9`+ `50 or more`+ `Boat, RV, van, etc.`+ `Mobile home`, total_20more = `20 to 49`+`50 or more`, total_10more = `10 to 19` + `20 to 49`+`50 or more`, total_1 = `1, attached` + `1, detached`) %>%
left_join(sf_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>%
group_by(zipcode) %>%
summarize(total_nums = sum(total_nums), total_20more = sum(total_20more), total_10more = sum(total_20more), total_1_only = sum(total_1)) %>%
mutate(`percent 10 or more units` = total_10more*100/total_nums, `percent 20 or more units` = total_20more*100/total_nums, `percent 1 only` = total_1_only*100/total_nums, `percent more than 1 unit` = (100 - `percent 1 only`))
# income
sf_income_zip <- pullCensus("group(B19001)", sf_fips) %>% dplyr::select(-c(contains("EA"),contains("MA"),contains("M"))) %>%
gather(key = "variable", value = "estimate", -blockgroup) %>%
mutate(label = acs_vars$label[match(variable,acs_vars$name)]) %>%
dplyr::select(-variable) %>%
separate(label, into = c(NA, NA, "income"), sep = "!!") %>%
filter(!is.na(income)) %>%
spread(key = income, value = estimate) %>%
mutate(total_nums = `Less than $10,000` + `$10,000 to $14,999` + `$15,000 to $19,999` + `$20,000 to $24,999` + `$25,000 to $29,999` + `$30,000 to $34,999` + `$35,000 to $39,999` + `$40,000 to $44,999` + `$45,000 to $49,999` + `$50,000 to $59,999` + `$60,000 to $74,999` + `$75,000 to $99,999` + `$100,000 to $124,999` + `$125,000 to $149,999` + `$150,000 to $199,999` + `$200,000 or more`, over_75000 = `$75,000 to $99,999` + `$100,000 to $124,999` + `$125,000 to $149,999` + `$150,000 to $199,999` + `$200,000 or more`, over_100000 = `$100,000 to $124,999` + `$125,000 to $149,999` + `$150,000 to $199,999` + `$200,000 or more`, over_125000 = `$125,000 to $149,999` + `$150,000 to $199,999` + `$200,000 or more`) %>%
left_join(sf_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>%
group_by(zipcode) %>%
summarize(total_nums = sum(total_nums), total_over_75000 = sum(over_75000), total_over_100000 = sum(over_100000), total_over_125000 = sum(over_125000)) %>%
mutate(percent_over_75000 = total_over_75000*100 / total_nums,
percent_under_75000 = (100 - percent_over_75000),
percent_over_100000 = total_over_100000*100 / total_nums,
percent_under_100000 = (100 - percent_over_100000),
percent_over_125000 = total_over_125000*100 / total_nums,
percent_under_125000 = (100 - percent_over_125000))
# median age
sf_median_age_zip <- pullCensus("B01002_001E", sf_fips) %>%
rename(median_age = B01002_001E) %>%
filter(median_age > 0) %>% # remove invalid results
left_join(sf_bg_zctas %>% dplyr::select(blockgroup, zipcode)) %>%
left_join(sf_pop_bg) %>%
group_by(zipcode) %>%
summarize(avg_median_age = weighted.mean(median_age, total_pop)) %>%
filter(!is.na(zipcode))
sf_dem_data <- left_join(sf_avg_household_size, sf_pop_density_zip %>% dplyr::select(pop_density, zipcode)) %>%
left_join(sf_occupants_zip %>% dplyr::select(`percent more than 1 occupant`, `percent more than 0.5 occupants`, `percent more than 2 occupants`, zipcode)) %>%
left_join(sf_units_zip %>% dplyr::select(`percent 10 or more units`, `percent more than 1 unit`, zipcode)) %>%
left_join(sf_income_zip %>% dplyr::select(percent_under_75000, percent_under_100000, percent_under_125000, zipcode)) %>%
left_join(sf_median_age_zip) %>%
as.data.frame() %>%
filter(!is.na(zipcode) & !is.na(avg_household_size))
cases_start_date <- as.Date("2020-04-21") # first cases start date to use, SF data doesn't start till 4/20 and some days are missing
visits_lag <- 14 # in days
time_window_length <- 7 # in days
# data frame to store results
model_results_1_sf <- data.frame(model_type = character(), coef_val = numeric(), p_val = numeric(), r_squared = numeric(), cases_start_date = character(), stringsAsFactors = FALSE)
while(cases_start_date + time_window_length <= max(sf_cases_zip$date)) {
model_results_curr <- testVisitsPrediction(sf_visits_zip, sf_cases_zip, cases_start_date, time_window_length, visits_lag, sf_dem_data, "San Francisco")
model_results_1_sf <- rbind(model_results_1_sf, model_results_curr)
cases_start_date <- cases_start_date + time_window_length # run again with new start date
}
## [1] "Cases start date: 2020-04-21"
## [1] "Visits start date: 2020-04-07"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.774e-04 -1.546e-04 -8.217e-05 2.702e-05 9.709e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.581e-05 2.312e-04 -0.112 0.912
## total_visits_per_capita 8.601e-05 7.446e-05 1.155 0.260
##
## Residual standard error: 0.0002826 on 23 degrees of freedom
## Multiple R-squared: 0.05482, Adjusted R-squared: 0.01373
## F-statistic: 1.334 on 1 and 23 DF, p-value: 0.2599
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.059e-04 -1.550e-04 -3.845e-05 9.355e-05 6.650e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -8.583e-04 2.503e-03 -0.343 0.736
## total_visits_per_capita -1.122e-04 2.122e-04 -0.529 0.605
## percent_under_125000 8.463e-06 8.427e-06 1.004 0.331
## avg_household_size 8.551e-05 4.567e-04 0.187 0.854
## pop_density -3.502e-02 2.072e-02 -1.690 0.112
## `percent more than 1 occupant` 6.229e-06 3.332e-05 0.187 0.854
## `percent more than 1 unit` 4.677e-06 8.971e-06 0.521 0.610
## avg_median_age 1.917e-05 3.589e-05 0.534 0.601
##
## Residual standard error: 0.0003019 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.2509, Adjusted R-squared: -0.09865
## F-statistic: 0.7178 on 7 and 15 DF, p-value: 0.6591
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.774e-04 -1.546e-04 -8.217e-05 2.702e-05 9.709e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.581e-05 2.312e-04 -0.112 0.912
## total_visits_per_capita 8.601e-05 7.446e-05 1.155 0.260
##
## Residual standard error: 0.0002826 on 23 degrees of freedom
## Multiple R-squared: 0.05482, Adjusted R-squared: 0.01373
## F-statistic: 1.334 on 1 and 23 DF, p-value: 0.2599
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.059e-04 -1.550e-04 -3.845e-05 9.355e-05 6.650e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -8.583e-04 2.503e-03 -0.343 0.736
## total_visits_per_capita -1.122e-04 2.122e-04 -0.529 0.605
## percent_under_125000 8.463e-06 8.427e-06 1.004 0.331
## avg_household_size 8.551e-05 4.567e-04 0.187 0.854
## pop_density -3.502e-02 2.072e-02 -1.690 0.112
## `percent more than 1 occupant` 6.229e-06 3.332e-05 0.187 0.854
## `percent more than 1 unit` 4.677e-06 8.971e-06 0.521 0.610
## avg_median_age 1.917e-05 3.589e-05 0.534 0.601
##
## Residual standard error: 0.0003019 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.2509, Adjusted R-squared: -0.09865
## F-statistic: 0.7178 on 7 and 15 DF, p-value: 0.6591
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.12396 -0.06851 -0.02184 0.05074 0.23629
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.02350 0.07295 -0.322 0.7503
## total_visits_per_capita 0.05184 0.02350 2.206 0.0376 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.08917 on 23 degrees of freedom
## Multiple R-squared: 0.1747, Adjusted R-squared: 0.1388
## F-statistic: 4.868 on 1 and 23 DF, p-value: 0.03762
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.135542 -0.051246 -0.006075 0.057011 0.149547
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.022e-01 7.519e-01 -0.269 0.792
## total_visits_per_capita -3.895e-02 6.377e-02 -0.611 0.551
## percent_under_125000 2.696e-03 2.532e-03 1.065 0.304
## avg_household_size 3.118e-03 1.372e-01 0.023 0.982
## pop_density -1.043e+01 6.225e+00 -1.676 0.114
## `percent more than 1 occupant` 2.931e-03 1.001e-02 0.293 0.774
## `percent more than 1 unit` 2.291e-04 2.695e-03 0.085 0.933
## avg_median_age 9.480e-03 1.078e-02 0.879 0.393
##
## Residual standard error: 0.0907 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.327, Adjusted R-squared: 0.01294
## F-statistic: 1.041 on 7 and 15 DF, p-value: 0.4441
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0002461 -0.0001823 -0.0001103 0.0001408 0.0009349
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.054e-04 3.497e-04 0.587 0.564
## total_visits_per_capita 1.861e-05 1.075e-04 0.173 0.864
##
## Residual standard error: 0.0002962 on 20 degrees of freedom
## Multiple R-squared: 0.001496, Adjusted R-squared: -0.04843
## F-statistic: 0.02996 on 1 and 20 DF, p-value: 0.8643
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.727e-04 -1.476e-04 -2.294e-05 3.853e-05 6.508e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.033e-03 2.522e-03 -0.410 0.688
## total_visits_per_capita -1.454e-04 2.163e-04 -0.672 0.512
## percent_under_125000 8.068e-06 8.479e-06 0.951 0.358
## avg_household_size 1.117e-04 4.598e-04 0.243 0.812
## pop_density -2.630e-02 2.286e-02 -1.150 0.269
## `percent more than 1 occupant` 1.050e-05 3.380e-05 0.311 0.761
## `percent more than 1 unit` 4.669e-06 9.015e-06 0.518 0.613
## avg_median_age 2.301e-05 3.630e-05 0.634 0.536
##
## Residual standard error: 0.0003034 on 14 degrees of freedom
## Multiple R-squared: 0.267, Adjusted R-squared: -0.09957
## F-statistic: 0.7284 on 7 and 14 DF, p-value: 0.6516
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.118302 -0.078913 -0.004338 0.055414 0.217143
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.09902 0.10548 0.939 0.359
## total_visits_per_capita 0.01614 0.03243 0.498 0.624
##
## Residual standard error: 0.08935 on 20 degrees of freedom
## Multiple R-squared: 0.01224, Adjusted R-squared: -0.03715
## F-statistic: 0.2478 on 1 and 20 DF, p-value: 0.6241
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.09083 -0.03993 -0.02074 0.04966 0.13942
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.3265922 0.6427536 -0.508 0.619
## total_visits_per_capita -0.0626193 0.0551274 -1.136 0.275
## percent_under_125000 0.0024144 0.0021609 1.117 0.283
## avg_household_size 0.0217460 0.1171768 0.186 0.855
## pop_density -4.2302348 5.8263517 -0.726 0.480
## `percent more than 1 occupant` 0.0059665 0.0086131 0.693 0.500
## `percent more than 1 unit` 0.0002237 0.0022976 0.097 0.924
## avg_median_age 0.0122078 0.0092517 1.320 0.208
##
## Residual standard error: 0.07731 on 14 degrees of freedom
## Multiple R-squared: 0.4823, Adjusted R-squared: 0.2235
## F-statistic: 1.863 on 7 and 14 DF, p-value: 0.1523
##
## [1] "Cases start date: 2020-04-28"
## [1] "Visits start date: 2020-04-14"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0003281 -0.0001878 -0.0000342 0.0001046 0.0004986
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.227e-04 1.860e-04 -1.198 0.2433
## total_visits_per_capita 1.288e-04 5.365e-05 2.401 0.0248 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000226 on 23 degrees of freedom
## Multiple R-squared: 0.2004, Adjusted R-squared: 0.1656
## F-statistic: 5.764 on 1 and 23 DF, p-value: 0.02484
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.607e-04 -1.317e-04 -3.334e-05 8.739e-05 4.698e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.164e-04 2.028e-03 0.057 0.955
## total_visits_per_capita 1.862e-04 1.563e-04 1.192 0.252
## percent_under_125000 -3.105e-07 6.970e-06 -0.045 0.965
## avg_household_size -4.523e-05 3.541e-04 -0.128 0.900
## pop_density 1.591e-02 1.834e-02 0.868 0.399
## `percent more than 1 occupant` 1.901e-05 2.598e-05 0.732 0.476
## `percent more than 1 unit` -1.472e-06 7.164e-06 -0.206 0.840
## avg_median_age -1.479e-05 2.913e-05 -0.508 0.619
##
## Residual standard error: 0.0002484 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.3257, Adjusted R-squared: 0.01102
## F-statistic: 1.035 on 7 and 15 DF, p-value: 0.4477
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0003281 -0.0001878 -0.0000342 0.0001046 0.0004986
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.227e-04 1.860e-04 -1.198 0.2433
## total_visits_per_capita 1.288e-04 5.365e-05 2.401 0.0248 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000226 on 23 degrees of freedom
## Multiple R-squared: 0.2004, Adjusted R-squared: 0.1656
## F-statistic: 5.764 on 1 and 23 DF, p-value: 0.02484
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.607e-04 -1.317e-04 -3.334e-05 8.739e-05 4.698e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.164e-04 2.028e-03 0.057 0.955
## total_visits_per_capita 1.862e-04 1.563e-04 1.192 0.252
## percent_under_125000 -3.105e-07 6.970e-06 -0.045 0.965
## avg_household_size -4.523e-05 3.541e-04 -0.128 0.900
## pop_density 1.591e-02 1.834e-02 0.868 0.399
## `percent more than 1 occupant` 1.901e-05 2.598e-05 0.732 0.476
## `percent more than 1 unit` -1.472e-06 7.164e-06 -0.206 0.840
## avg_median_age -1.479e-05 2.913e-05 -0.508 0.619
##
## Residual standard error: 0.0002484 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.3257, Adjusted R-squared: 0.01102
## F-statistic: 1.035 on 7 and 15 DF, p-value: 0.4477
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.15098 -0.05555 -0.00507 0.04396 0.17610
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.06915 0.06713 -1.030 0.3137
## total_visits_per_capita 0.05148 0.01937 2.658 0.0141 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.08157 on 23 degrees of freedom
## Multiple R-squared: 0.235, Adjusted R-squared: 0.2017
## F-statistic: 7.065 on 1 and 23 DF, p-value: 0.01405
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.143081 -0.033951 0.004443 0.044455 0.115003
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.861e-01 7.043e-01 -0.264 0.795
## total_visits_per_capita 8.192e-02 5.428e-02 1.509 0.152
## percent_under_125000 1.698e-06 2.421e-03 0.001 0.999
## avg_household_size 1.529e-03 1.230e-01 0.012 0.990
## pop_density 1.088e+01 6.370e+00 1.708 0.108
## `percent more than 1 occupant` 5.905e-04 9.024e-03 0.065 0.949
## `percent more than 1 unit` -4.418e-04 2.488e-03 -0.178 0.861
## avg_median_age -1.666e-03 1.012e-02 -0.165 0.871
##
## Residual standard error: 0.08627 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.3677, Adjusted R-squared: 0.07257
## F-statistic: 1.246 on 7 and 15 DF, p-value: 0.339
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0003280 -0.0002026 -0.0000667 0.0001327 0.0004974
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.178e-04 2.941e-04 -0.741 0.468
## total_visits_per_capita 1.276e-04 8.088e-05 1.578 0.130
##
## Residual standard error: 0.0002421 on 20 degrees of freedom
## Multiple R-squared: 0.1107, Adjusted R-squared: 0.06625
## F-statistic: 2.49 on 1 and 20 DF, p-value: 0.1303
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.071e-04 -1.378e-04 -4.929e-05 7.571e-05 4.878e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.339e-05 1.921e-03 0.007 0.995
## total_visits_per_capita 1.339e-04 1.514e-04 0.885 0.391
## percent_under_125000 -5.712e-07 6.602e-06 -0.087 0.932
## avg_household_size -1.086e-05 3.360e-04 -0.032 0.975
## pop_density 2.673e-02 1.857e-02 1.440 0.172
## `percent more than 1 occupant` 2.574e-05 2.494e-05 1.032 0.320
## `percent more than 1 unit` -1.586e-06 6.785e-06 -0.234 0.819
## avg_median_age -1.198e-05 2.764e-05 -0.434 0.671
##
## Residual standard error: 0.0002352 on 14 degrees of freedom
## Multiple R-squared: 0.4121, Adjusted R-squared: 0.1182
## F-statistic: 1.402 on 7 and 14 DF, p-value: 0.2791
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.145268 -0.057158 0.004115 0.059673 0.168587
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.02139 0.10507 -0.204 0.841
## total_visits_per_capita 0.03897 0.02890 1.349 0.193
##
## Residual standard error: 0.08649 on 20 degrees of freedom
## Multiple R-squared: 0.08336, Adjusted R-squared: 0.03753
## F-statistic: 1.819 on 1 and 20 DF, p-value: 0.1925
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.108834 -0.042472 0.004964 0.042425 0.103401
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.2424422 0.5635049 -0.430 0.67357
## total_visits_per_capita 0.0533436 0.0443922 1.202 0.24944
## percent_under_125000 -0.0001407 0.0019363 -0.073 0.94308
## avg_household_size 0.0203076 0.0985442 0.206 0.83970
## pop_density 16.7924651 5.4449416 3.084 0.00808 **
## `percent more than 1 occupant` 0.0042643 0.0073151 0.583 0.56920
## `percent more than 1 unit` -0.0005039 0.0019899 -0.253 0.80378
## avg_median_age -0.0001340 0.0081072 -0.017 0.98705
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.06899 on 14 degrees of freedom
## Multiple R-squared: 0.5917, Adjusted R-squared: 0.3875
## F-statistic: 2.898 on 7 and 14 DF, p-value: 0.04279
##
## [1] "Cases start date: 2020-05-05"
## [1] "Visits start date: 2020-04-21"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.768e-04 -1.841e-04 -7.733e-05 1.036e-04 8.908e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.124e-04 2.256e-04 -0.498 0.623
## total_visits_per_capita 9.479e-05 6.504e-05 1.457 0.159
##
## Residual standard error: 0.0002588 on 23 degrees of freedom
## Multiple R-squared: 0.08452, Adjusted R-squared: 0.04472
## F-statistic: 2.124 on 1 and 23 DF, p-value: 0.1586
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.206e-04 -1.553e-04 -2.271e-05 8.895e-05 7.114e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 7.428e-04 2.164e-03 0.343 0.736
## total_visits_per_capita 7.960e-05 1.474e-04 0.540 0.597
## percent_under_125000 9.016e-07 6.635e-06 0.136 0.894
## avg_household_size 9.881e-05 3.548e-04 0.278 0.784
## pop_density 1.261e-02 1.846e-02 0.683 0.505
## `percent more than 1 occupant` 2.193e-05 2.689e-05 0.815 0.428
## `percent more than 1 unit` 6.454e-07 7.458e-06 0.087 0.932
## avg_median_age -3.517e-05 3.081e-05 -1.141 0.272
##
## Residual standard error: 0.0002637 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.3439, Adjusted R-squared: 0.03769
## F-statistic: 1.123 on 7 and 15 DF, p-value: 0.3991
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.768e-04 -1.841e-04 -7.733e-05 1.036e-04 8.908e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.124e-04 2.256e-04 -0.498 0.623
## total_visits_per_capita 9.479e-05 6.504e-05 1.457 0.159
##
## Residual standard error: 0.0002588 on 23 degrees of freedom
## Multiple R-squared: 0.08452, Adjusted R-squared: 0.04472
## F-statistic: 2.124 on 1 and 23 DF, p-value: 0.1586
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.206e-04 -1.553e-04 -2.271e-05 8.895e-05 7.114e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 7.428e-04 2.164e-03 0.343 0.736
## total_visits_per_capita 7.960e-05 1.474e-04 0.540 0.597
## percent_under_125000 9.016e-07 6.635e-06 0.136 0.894
## avg_household_size 9.881e-05 3.548e-04 0.278 0.784
## pop_density 1.261e-02 1.846e-02 0.683 0.505
## `percent more than 1 occupant` 2.193e-05 2.689e-05 0.815 0.428
## `percent more than 1 unit` 6.454e-07 7.458e-06 0.087 0.932
## avg_median_age -3.517e-05 3.081e-05 -1.141 0.272
##
## Residual standard error: 0.0002637 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.3439, Adjusted R-squared: 0.03769
## F-statistic: 1.123 on 7 and 15 DF, p-value: 0.3991
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.11825 -0.06906 -0.01904 0.03104 0.20053
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.03113 0.07680 -0.405 0.689
## total_visits_per_capita 0.03638 0.02215 1.643 0.114
##
## Residual standard error: 0.08813 on 23 degrees of freedom
## Multiple R-squared: 0.105, Adjusted R-squared: 0.06608
## F-statistic: 2.698 on 1 and 23 DF, p-value: 0.1141
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.098038 -0.055465 0.007777 0.038927 0.154035
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.038806 0.646821 1.606 0.1291
## total_visits_per_capita 0.004769 0.044060 0.108 0.9152
## percent_under_125000 0.001295 0.001983 0.653 0.5234
## avg_household_size -0.034293 0.106029 -0.323 0.7508
## pop_density 1.673251 5.517238 0.303 0.7658
## `percent more than 1 occupant` 0.010371 0.008037 1.290 0.2164
## `percent more than 1 unit` -0.001461 0.002229 -0.655 0.5221
## avg_median_age -0.023617 0.009208 -2.565 0.0216 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.07879 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.4864, Adjusted R-squared: 0.2468
## F-statistic: 2.03 on 7 and 15 DF, p-value: 0.1183
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.648e-04 -1.968e-04 -5.409e-05 1.006e-04 8.828e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.685e-05 3.647e-04 0.101 0.921
## total_visits_per_capita 5.552e-05 1.004e-04 0.553 0.586
##
## Residual standard error: 0.000275 on 20 degrees of freedom
## Multiple R-squared: 0.01505, Adjusted R-squared: -0.03419
## F-statistic: 0.3057 on 1 and 20 DF, p-value: 0.5865
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.567e-04 -1.364e-04 -4.297e-05 1.000e-04 6.182e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 6.764e-04 1.981e-03 0.341 0.738
## total_visits_per_capita 1.754e-05 1.385e-04 0.127 0.901
## percent_under_125000 7.611e-08 6.086e-06 0.013 0.990
## avg_household_size 1.206e-04 3.249e-04 0.371 0.716
## pop_density 2.635e-02 1.827e-02 1.442 0.171
## `percent more than 1 occupant` 3.168e-05 2.510e-05 1.262 0.228
## `percent more than 1 unit` 1.901e-07 6.829e-06 0.028 0.978
## avg_median_age -3.127e-05 2.827e-05 -1.106 0.287
##
## Residual standard error: 0.0002413 on 14 degrees of freedom
## Multiple R-squared: 0.4694, Adjusted R-squared: 0.2041
## F-statistic: 1.769 on 7 and 14 DF, p-value: 0.1721
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.11092 -0.07088 -0.01606 0.05445 0.19594
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.05774 0.12213 0.473 0.641
## total_visits_per_capita 0.01295 0.03363 0.385 0.704
##
## Residual standard error: 0.09211 on 20 degrees of freedom
## Multiple R-squared: 0.00736, Adjusted R-squared: -0.04227
## F-statistic: 0.1483 on 1 and 20 DF, p-value: 0.7042
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.088113 -0.038366 0.000876 0.014501 0.125525
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.018501 0.588088 1.732 0.1053
## total_visits_per_capita -0.014207 0.041122 -0.345 0.7349
## percent_under_125000 0.001043 0.001807 0.577 0.5729
## avg_household_size -0.027640 0.096443 -0.287 0.7786
## pop_density 5.873914 5.422792 1.083 0.2970
## `percent more than 1 occupant` 0.013354 0.007451 1.792 0.0947 .
## `percent more than 1 unit` -0.001600 0.002027 -0.789 0.4431
## avg_median_age -0.022424 0.008391 -2.672 0.0182 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.07162 on 14 degrees of freedom
## Multiple R-squared: 0.5798, Adjusted R-squared: 0.3697
## F-statistic: 2.76 on 7 and 14 DF, p-value: 0.05025
##
## [1] "Cases start date: 2020-05-12"
## [1] "Visits start date: 2020-04-28"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.615e-04 -1.337e-04 -7.965e-05 4.174e-05 5.012e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -6.189e-05 1.735e-04 -0.357 0.725
## total_visits_per_capita 8.578e-05 5.114e-05 1.678 0.107
##
## Residual standard error: 0.0002349 on 23 degrees of freedom
## Multiple R-squared: 0.109, Adjusted R-squared: 0.07027
## F-statistic: 2.814 on 1 and 23 DF, p-value: 0.107
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.350e-04 -8.327e-05 -2.281e-05 4.366e-05 4.037e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.595e-05 1.801e-03 -0.020 0.984
## total_visits_per_capita 2.967e-05 1.203e-04 0.247 0.809
## percent_under_125000 4.686e-06 5.718e-06 0.819 0.425
## avg_household_size 4.714e-05 3.067e-04 0.154 0.880
## pop_density 9.160e-03 1.459e-02 0.628 0.540
## `percent more than 1 occupant` 2.022e-05 2.263e-05 0.894 0.386
## `percent more than 1 unit` -1.965e-07 6.256e-06 -0.031 0.975
## avg_median_age -1.021e-05 2.588e-05 -0.394 0.699
##
## Residual standard error: 0.0002203 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.4484, Adjusted R-squared: 0.1911
## F-statistic: 1.742 on 7 and 15 DF, p-value: 0.1735
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.615e-04 -1.337e-04 -7.965e-05 4.174e-05 5.012e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -6.189e-05 1.735e-04 -0.357 0.725
## total_visits_per_capita 8.578e-05 5.114e-05 1.678 0.107
##
## Residual standard error: 0.0002349 on 23 degrees of freedom
## Multiple R-squared: 0.109, Adjusted R-squared: 0.07027
## F-statistic: 2.814 on 1 and 23 DF, p-value: 0.107
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.350e-04 -8.327e-05 -2.281e-05 4.366e-05 4.037e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.595e-05 1.801e-03 -0.020 0.984
## total_visits_per_capita 2.967e-05 1.203e-04 0.247 0.809
## percent_under_125000 4.686e-06 5.718e-06 0.819 0.425
## avg_household_size 4.714e-05 3.067e-04 0.154 0.880
## pop_density 9.160e-03 1.459e-02 0.628 0.540
## `percent more than 1 occupant` 2.022e-05 2.263e-05 0.894 0.386
## `percent more than 1 unit` -1.965e-07 6.256e-06 -0.031 0.975
## avg_median_age -1.021e-05 2.588e-05 -0.394 0.699
##
## Residual standard error: 0.0002203 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.4484, Adjusted R-squared: 0.1911
## F-statistic: 1.742 on 7 and 15 DF, p-value: 0.1735
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.36834 -0.15675 -0.06918 0.02667 2.13471
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.43724 0.34831 1.255 0.222
## total_visits_per_capita -0.08044 0.10262 -0.784 0.441
##
## Residual standard error: 0.4714 on 23 degrees of freedom
## Multiple R-squared: 0.02602, Adjusted R-squared: -0.01633
## F-statistic: 0.6144 on 1 and 23 DF, p-value: 0.4411
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.60414 -0.13794 -0.01789 0.15854 1.06232
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.571294 3.315009 -0.172 0.8655
## total_visits_per_capita -0.066693 0.221536 -0.301 0.7675
## percent_under_125000 -0.002988 0.010526 -0.284 0.7804
## avg_household_size 0.022489 0.564692 0.040 0.9688
## pop_density 55.574485 26.868950 2.068 0.0563 .
## `percent more than 1 occupant` 0.032099 0.041653 0.771 0.4529
## `percent more than 1 unit` -0.002282 0.011517 -0.198 0.8456
## avg_median_age 0.013939 0.047646 0.293 0.7739
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.4056 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.5236, Adjusted R-squared: 0.3013
## F-statistic: 2.355 on 7 and 15 DF, p-value: 0.07759
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.798e-04 -1.179e-04 -7.617e-05 4.202e-05 5.472e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.320e-04 2.567e-04 -0.903 0.3770
## total_visits_per_capita 1.295e-04 7.196e-05 1.800 0.0869 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002272 on 20 degrees of freedom
## Multiple R-squared: 0.1394, Adjusted R-squared: 0.09641
## F-statistic: 3.241 on 1 and 20 DF, p-value: 0.08694
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.500e-04 -8.507e-05 -3.788e-05 4.861e-05 4.101e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -7.463e-06 1.851e-03 -0.004 0.997
## total_visits_per_capita 3.799e-05 1.250e-04 0.304 0.766
## percent_under_125000 4.925e-06 5.898e-06 0.835 0.418
## avg_household_size 4.337e-05 3.152e-04 0.138 0.893
## pop_density 5.783e-03 1.670e-02 0.346 0.734
## `percent more than 1 occupant` 1.812e-05 2.369e-05 0.765 0.457
## `percent more than 1 unit` -8.526e-08 6.432e-06 -0.013 0.990
## avg_median_age -1.101e-05 2.665e-05 -0.413 0.686
##
## Residual standard error: 0.0002264 on 14 degrees of freedom
## Multiple R-squared: 0.4019, Adjusted R-squared: 0.1028
## F-statistic: 1.344 on 7 and 14 DF, p-value: 0.3014
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.088430 -0.035836 -0.003518 0.038091 0.086826
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.08115 0.06131 -1.324 0.2005
## total_visits_per_capita 0.04862 0.01718 2.830 0.0104 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.05425 on 20 degrees of freedom
## Multiple R-squared: 0.2859, Adjusted R-squared: 0.2502
## F-statistic: 8.006 on 1 and 20 DF, p-value: 0.01036
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.075996 -0.021359 -0.005603 0.033111 0.085405
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.1443514 0.4643570 -0.311 0.7605
## total_visits_per_capita 0.0578783 0.0313458 1.846 0.0861 .
## percent_under_125000 0.0006009 0.0014794 0.406 0.6907
## avg_household_size -0.0339883 0.0790828 -0.430 0.6739
## pop_density 4.9598480 4.1904011 1.184 0.2563
## `percent more than 1 occupant` 0.0006771 0.0059429 0.114 0.9109
## `percent more than 1 unit` -0.0006150 0.0016134 -0.381 0.7088
## avg_median_age 0.0019231 0.0066847 0.288 0.7778
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.05679 on 14 degrees of freedom
## Multiple R-squared: 0.4522, Adjusted R-squared: 0.1782
## F-statistic: 1.651 on 7 and 14 DF, p-value: 0.2011
##
## [1] "Cases start date: 2020-05-19"
## [1] "Visits start date: 2020-05-05"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.274e-04 -8.276e-05 -2.423e-05 5.395e-05 2.091e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.105e-04 9.369e-05 -1.180 0.2512
## total_visits_per_capita 5.810e-05 2.791e-05 2.082 0.0498 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 9.615e-05 on 21 degrees of freedom
## Multiple R-squared: 0.1711, Adjusted R-squared: 0.1316
## F-statistic: 4.334 on 1 and 21 DF, p-value: 0.04978
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.869e-04 -4.605e-05 -1.271e-05 6.014e-05 1.083e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.574e-04 7.004e-04 0.225 0.825
## total_visits_per_capita 5.758e-05 5.461e-05 1.054 0.308
## percent_under_125000 -1.211e-07 2.042e-06 -0.059 0.953
## avg_household_size 1.711e-05 1.236e-04 0.138 0.892
## pop_density -2.251e-03 6.041e-03 -0.373 0.715
## `percent more than 1 occupant` 1.409e-05 8.733e-06 1.613 0.128
## `percent more than 1 unit` 6.573e-07 2.432e-06 0.270 0.791
## avg_median_age -1.051e-05 1.001e-05 -1.050 0.311
##
## Residual standard error: 8.586e-05 on 15 degrees of freedom
## Multiple R-squared: 0.5278, Adjusted R-squared: 0.3074
## F-statistic: 2.395 on 7 and 15 DF, p-value: 0.07374
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.274e-04 -8.276e-05 -2.423e-05 5.395e-05 2.091e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.105e-04 9.369e-05 -1.180 0.2512
## total_visits_per_capita 5.810e-05 2.791e-05 2.082 0.0498 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 9.615e-05 on 21 degrees of freedom
## Multiple R-squared: 0.1711, Adjusted R-squared: 0.1316
## F-statistic: 4.334 on 1 and 21 DF, p-value: 0.04978
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.869e-04 -4.605e-05 -1.271e-05 6.014e-05 1.083e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.574e-04 7.004e-04 0.225 0.825
## total_visits_per_capita 5.758e-05 5.461e-05 1.054 0.308
## percent_under_125000 -1.211e-07 2.042e-06 -0.059 0.953
## avg_household_size 1.711e-05 1.236e-04 0.138 0.892
## pop_density -2.251e-03 6.041e-03 -0.373 0.715
## `percent more than 1 occupant` 1.409e-05 8.733e-06 1.613 0.128
## `percent more than 1 unit` 6.573e-07 2.432e-06 0.270 0.791
## avg_median_age -1.051e-05 1.001e-05 -1.050 0.311
##
## Residual standard error: 8.586e-05 on 15 degrees of freedom
## Multiple R-squared: 0.5278, Adjusted R-squared: 0.3074
## F-statistic: 2.395 on 7 and 15 DF, p-value: 0.07374
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.042542 -0.019802 -0.009096 0.007868 0.134528
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.01817 0.03837 -0.473 0.641
## total_visits_per_capita 0.01483 0.01143 1.297 0.209
##
## Residual standard error: 0.03938 on 21 degrees of freedom
## Multiple R-squared: 0.07417, Adjusted R-squared: 0.03009
## F-statistic: 1.682 on 1 and 21 DF, p-value: 0.2087
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.043135 -0.019963 -0.002531 0.023350 0.062105
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0079016 0.2741853 0.029 0.9774
## total_visits_per_capita 0.0532616 0.0213762 2.492 0.0249 *
## percent_under_125000 -0.0013541 0.0007992 -1.694 0.1109
## avg_household_size -0.0246897 0.0483695 -0.510 0.6172
## pop_density 2.6243586 2.3647335 1.110 0.2846
## `percent more than 1 occupant` 0.0065490 0.0034185 1.916 0.0747 .
## `percent more than 1 unit` 0.0001732 0.0009520 0.182 0.8581
## avg_median_age -0.0023916 0.0039201 -0.610 0.5509
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03361 on 15 degrees of freedom
## Multiple R-squared: 0.5183, Adjusted R-squared: 0.2935
## F-statistic: 2.306 on 7 and 15 DF, p-value: 0.08264
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.274e-04 -8.276e-05 -2.423e-05 5.395e-05 2.091e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.105e-04 9.369e-05 -1.180 0.2512
## total_visits_per_capita 5.810e-05 2.791e-05 2.082 0.0498 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 9.615e-05 on 21 degrees of freedom
## Multiple R-squared: 0.1711, Adjusted R-squared: 0.1316
## F-statistic: 4.334 on 1 and 21 DF, p-value: 0.04978
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.869e-04 -4.605e-05 -1.271e-05 6.014e-05 1.083e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.574e-04 7.004e-04 0.225 0.825
## total_visits_per_capita 5.758e-05 5.461e-05 1.054 0.308
## percent_under_125000 -1.211e-07 2.042e-06 -0.059 0.953
## avg_household_size 1.711e-05 1.236e-04 0.138 0.892
## pop_density -2.251e-03 6.041e-03 -0.373 0.715
## `percent more than 1 occupant` 1.409e-05 8.733e-06 1.613 0.128
## `percent more than 1 unit` 6.573e-07 2.432e-06 0.270 0.791
## avg_median_age -1.051e-05 1.001e-05 -1.050 0.311
##
## Residual standard error: 8.586e-05 on 15 degrees of freedom
## Multiple R-squared: 0.5278, Adjusted R-squared: 0.3074
## F-statistic: 2.395 on 7 and 15 DF, p-value: 0.07374
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.042542 -0.019802 -0.009096 0.007868 0.134528
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.01817 0.03837 -0.473 0.641
## total_visits_per_capita 0.01483 0.01143 1.297 0.209
##
## Residual standard error: 0.03938 on 21 degrees of freedom
## Multiple R-squared: 0.07417, Adjusted R-squared: 0.03009
## F-statistic: 1.682 on 1 and 21 DF, p-value: 0.2087
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.043135 -0.019963 -0.002531 0.023350 0.062105
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0079016 0.2741853 0.029 0.9774
## total_visits_per_capita 0.0532616 0.0213762 2.492 0.0249 *
## percent_under_125000 -0.0013541 0.0007992 -1.694 0.1109
## avg_household_size -0.0246897 0.0483695 -0.510 0.6172
## pop_density 2.6243586 2.3647335 1.110 0.2846
## `percent more than 1 occupant` 0.0065490 0.0034185 1.916 0.0747 .
## `percent more than 1 unit` 0.0001732 0.0009520 0.182 0.8581
## avg_median_age -0.0023916 0.0039201 -0.610 0.5509
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03361 on 15 degrees of freedom
## Multiple R-squared: 0.5183, Adjusted R-squared: 0.2935
## F-statistic: 2.306 on 7 and 15 DF, p-value: 0.08264
##
## [1] "Cases start date: 2020-05-26"
## [1] "Visits start date: 2020-05-12"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
##
## Residual standard error: 0 on 21 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 1 and 21 DF, p-value: NA
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
## percent_under_125000 0 0 NA NA
## avg_household_size 0 0 NA NA
## pop_density 0 0 NA NA
## `percent more than 1 occupant` 0 0 NA NA
## `percent more than 1 unit` 0 0 NA NA
## avg_median_age 0 0 NA NA
##
## Residual standard error: 0 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 7 and 15 DF, p-value: NA
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
##
## Residual standard error: 0 on 21 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 1 and 21 DF, p-value: NA
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
## percent_under_125000 0 0 NA NA
## avg_household_size 0 0 NA NA
## pop_density 0 0 NA NA
## `percent more than 1 occupant` 0 0 NA NA
## `percent more than 1 unit` 0 0 NA NA
## avg_median_age 0 0 NA NA
##
## Residual standard error: 0 on 15 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 7 and 15 DF, p-value: NA
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
##
## Residual standard error: 0 on 21 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 1 and 21 DF, p-value: NA
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
## percent_under_125000 0 0 NA NA
## avg_household_size 0 0 NA NA
## pop_density 0 0 NA NA
## `percent more than 1 occupant` 0 0 NA NA
## `percent more than 1 unit` 0 0 NA NA
## avg_median_age 0 0 NA NA
##
## Residual standard error: 0 on 15 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 7 and 15 DF, p-value: NA
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
##
## Residual standard error: 0 on 21 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 1 and 21 DF, p-value: NA
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
## percent_under_125000 0 0 NA NA
## avg_household_size 0 0 NA NA
## pop_density 0 0 NA NA
## `percent more than 1 occupant` 0 0 NA NA
## `percent more than 1 unit` 0 0 NA NA
## avg_median_age 0 0 NA NA
##
## Residual standard error: 0 on 15 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 7 and 15 DF, p-value: NA
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
##
## Residual standard error: 0 on 21 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 1 and 21 DF, p-value: NA
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
## percent_under_125000 0 0 NA NA
## avg_household_size 0 0 NA NA
## pop_density 0 0 NA NA
## `percent more than 1 occupant` 0 0 NA NA
## `percent more than 1 unit` 0 0 NA NA
## avg_median_age 0 0 NA NA
##
## Residual standard error: 0 on 15 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 7 and 15 DF, p-value: NA
##
## [1] "Cases start date: 2020-06-02"
## [1] "Visits start date: 2020-05-19"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
##
## Residual standard error: 0 on 23 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 1 and 23 DF, p-value: NA
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
## percent_under_125000 0 0 NA NA
## avg_household_size 0 0 NA NA
## pop_density 0 0 NA NA
## `percent more than 1 occupant` 0 0 NA NA
## `percent more than 1 unit` 0 0 NA NA
## avg_median_age 0 0 NA NA
##
## Residual standard error: 0 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 7 and 15 DF, p-value: NA
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
##
## Residual standard error: 0 on 23 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 1 and 23 DF, p-value: NA
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
## percent_under_125000 0 0 NA NA
## avg_household_size 0 0 NA NA
## pop_density 0 0 NA NA
## `percent more than 1 occupant` 0 0 NA NA
## `percent more than 1 unit` 0 0 NA NA
## avg_median_age 0 0 NA NA
##
## Residual standard error: 0 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 7 and 15 DF, p-value: NA
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
##
## Residual standard error: 0 on 23 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 1 and 23 DF, p-value: NA
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
## percent_under_125000 0 0 NA NA
## avg_household_size 0 0 NA NA
## pop_density 0 0 NA NA
## `percent more than 1 occupant` 0 0 NA NA
## `percent more than 1 unit` 0 0 NA NA
## avg_median_age 0 0 NA NA
##
## Residual standard error: 0 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 7 and 15 DF, p-value: NA
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
##
## Residual standard error: 0 on 21 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 1 and 21 DF, p-value: NA
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
## percent_under_125000 0 0 NA NA
## avg_household_size 0 0 NA NA
## pop_density 0 0 NA NA
## `percent more than 1 occupant` 0 0 NA NA
## `percent more than 1 unit` 0 0 NA NA
## avg_median_age 0 0 NA NA
##
## Residual standard error: 0 on 15 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 7 and 15 DF, p-value: NA
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
##
## Residual standard error: 0 on 21 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 1 and 21 DF, p-value: NA
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
## percent_under_125000 0 0 NA NA
## avg_household_size 0 0 NA NA
## pop_density 0 0 NA NA
## `percent more than 1 occupant` 0 0 NA NA
## `percent more than 1 unit` 0 0 NA NA
## avg_median_age 0 0 NA NA
##
## Residual standard error: 0 on 15 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 7 and 15 DF, p-value: NA
##
## [1] "Cases start date: 2020-06-09"
## [1] "Visits start date: 2020-05-26"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
##
## Residual standard error: 0 on 23 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 1 and 23 DF, p-value: NA
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
## percent_under_125000 0 0 NA NA
## avg_household_size 0 0 NA NA
## pop_density 0 0 NA NA
## `percent more than 1 occupant` 0 0 NA NA
## `percent more than 1 unit` 0 0 NA NA
## avg_median_age 0 0 NA NA
##
## Residual standard error: 0 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 7 and 15 DF, p-value: NA
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
##
## Residual standard error: 0 on 23 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 1 and 23 DF, p-value: NA
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
## percent_under_125000 0 0 NA NA
## avg_household_size 0 0 NA NA
## pop_density 0 0 NA NA
## `percent more than 1 occupant` 0 0 NA NA
## `percent more than 1 unit` 0 0 NA NA
## avg_median_age 0 0 NA NA
##
## Residual standard error: 0 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 7 and 15 DF, p-value: NA
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
##
## Residual standard error: 0 on 23 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 1 and 23 DF, p-value: NA
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
## percent_under_125000 0 0 NA NA
## avg_household_size 0 0 NA NA
## pop_density 0 0 NA NA
## `percent more than 1 occupant` 0 0 NA NA
## `percent more than 1 unit` 0 0 NA NA
## avg_median_age 0 0 NA NA
##
## Residual standard error: 0 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 7 and 15 DF, p-value: NA
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
##
## Residual standard error: 0 on 21 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 1 and 21 DF, p-value: NA
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
## percent_under_125000 0 0 NA NA
## avg_household_size 0 0 NA NA
## pop_density 0 0 NA NA
## `percent more than 1 occupant` 0 0 NA NA
## `percent more than 1 unit` 0 0 NA NA
## avg_median_age 0 0 NA NA
##
## Residual standard error: 0 on 15 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 7 and 15 DF, p-value: NA
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
##
## Residual standard error: 0 on 21 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 1 and 21 DF, p-value: NA
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## 0 0 0 0 0
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0 0 NA NA
## total_visits_per_capita 0 0 NA NA
## percent_under_125000 0 0 NA NA
## avg_household_size 0 0 NA NA
## pop_density 0 0 NA NA
## `percent more than 1 occupant` 0 0 NA NA
## `percent more than 1 unit` 0 0 NA NA
## avg_median_age 0 0 NA NA
##
## Residual standard error: 0 on 15 degrees of freedom
## Multiple R-squared: NaN, Adjusted R-squared: NaN
## F-statistic: NaN on 7 and 15 DF, p-value: NA
##
## [1] "Cases start date: 2020-06-16"
## [1] "Visits start date: 2020-06-02"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0009620 -0.0005281 -0.0003028 0.0002334 0.0028778
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0003004 0.0006073 0.495 0.626
## total_visits_per_capita 0.0002213 0.0002067 1.070 0.296
##
## Residual standard error: 0.000974 on 23 degrees of freedom
## Multiple R-squared: 0.04745, Adjusted R-squared: 0.006038
## F-statistic: 1.146 on 1 and 23 DF, p-value: 0.2955
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.463e-03 -3.564e-04 2.801e-05 2.817e-04 1.395e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 7.477e-03 6.656e-03 1.123 0.2790
## total_visits_per_capita -4.744e-04 4.869e-04 -0.974 0.3453
## percent_under_125000 3.703e-05 1.872e-05 1.978 0.0666 .
## avg_household_size 1.226e-04 1.173e-03 0.105 0.9181
## pop_density -2.737e-02 5.491e-02 -0.498 0.6254
## `percent more than 1 occupant` 6.673e-05 8.389e-05 0.795 0.4387
## `percent more than 1 unit` -1.588e-05 2.298e-05 -0.691 0.5001
## avg_median_age -1.666e-04 9.651e-05 -1.727 0.1048
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0008163 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.5259, Adjusted R-squared: 0.3046
## F-statistic: 2.377 on 7 and 15 DF, p-value: 0.07547
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0009620 -0.0005281 -0.0003028 0.0002334 0.0028778
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0003004 0.0006073 0.495 0.626
## total_visits_per_capita 0.0002213 0.0002067 1.070 0.296
##
## Residual standard error: 0.000974 on 23 degrees of freedom
## Multiple R-squared: 0.04745, Adjusted R-squared: 0.006038
## F-statistic: 1.146 on 1 and 23 DF, p-value: 0.2955
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.463e-03 -3.564e-04 2.801e-05 2.817e-04 1.395e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 7.477e-03 6.656e-03 1.123 0.2790
## total_visits_per_capita -4.744e-04 4.869e-04 -0.974 0.3453
## percent_under_125000 3.703e-05 1.872e-05 1.978 0.0666 .
## avg_household_size 1.226e-04 1.173e-03 0.105 0.9181
## pop_density -2.737e-02 5.491e-02 -0.498 0.6254
## `percent more than 1 occupant` 6.673e-05 8.389e-05 0.795 0.4387
## `percent more than 1 unit` -1.588e-05 2.298e-05 -0.691 0.5001
## avg_median_age -1.666e-04 9.651e-05 -1.727 0.1048
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0008163 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.5259, Adjusted R-squared: 0.3046
## F-statistic: 2.377 on 7 and 15 DF, p-value: 0.07547
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.21965 -0.12261 -0.04057 0.07272 0.34588
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.16525 0.10290 1.606 0.122
## total_visits_per_capita 0.05287 0.03503 1.509 0.145
##
## Residual standard error: 0.165 on 23 degrees of freedom
## Multiple R-squared: 0.09012, Adjusted R-squared: 0.05056
## F-statistic: 2.278 on 1 and 23 DF, p-value: 0.1448
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.169348 -0.062050 -0.001605 0.040019 0.292237
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.493038 0.989902 2.518 0.0236 *
## total_visits_per_capita -0.023949 0.072411 -0.331 0.7454
## percent_under_125000 0.005923 0.002784 2.128 0.0504 .
## avg_household_size -0.201873 0.174406 -1.157 0.2652
## pop_density 9.389791 8.166134 1.150 0.2682
## `percent more than 1 occupant` 0.011411 0.012476 0.915 0.3749
## `percent more than 1 unit` -0.006852 0.003417 -2.005 0.0634 .
## avg_median_age -0.041333 0.014354 -2.880 0.0115 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1214 on 15 degrees of freedom
## (2 observations deleted due to missingness)
## Multiple R-squared: 0.536, Adjusted R-squared: 0.3195
## F-statistic: 2.476 on 7 and 15 DF, p-value: 0.06661
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0008710 -0.0006442 -0.0003793 0.0001825 0.0029507
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 7.475e-04 7.912e-04 0.945 0.356
## total_visits_per_capita 8.438e-05 2.594e-04 0.325 0.748
##
## Residual standard error: 0.0009994 on 21 degrees of freedom
## Multiple R-squared: 0.005013, Adjusted R-squared: -0.04237
## F-statistic: 0.1058 on 1 and 21 DF, p-value: 0.7482
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.463e-03 -3.564e-04 2.801e-05 2.817e-04 1.395e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 7.477e-03 6.656e-03 1.123 0.2790
## total_visits_per_capita -4.744e-04 4.869e-04 -0.974 0.3453
## percent_under_125000 3.703e-05 1.872e-05 1.978 0.0666 .
## avg_household_size 1.226e-04 1.173e-03 0.105 0.9181
## pop_density -2.737e-02 5.491e-02 -0.498 0.6254
## `percent more than 1 occupant` 6.673e-05 8.389e-05 0.795 0.4387
## `percent more than 1 unit` -1.588e-05 2.298e-05 -0.691 0.5001
## avg_median_age -1.666e-04 9.651e-05 -1.727 0.1048
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0008163 on 15 degrees of freedom
## Multiple R-squared: 0.5259, Adjusted R-squared: 0.3046
## F-statistic: 2.377 on 7 and 15 DF, p-value: 0.07547
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.18530 -0.11694 -0.05980 0.09713 0.29586
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.354221 0.119196 2.972 0.00728 **
## total_visits_per_capita -0.004996 0.039083 -0.128 0.89950
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1506 on 21 degrees of freedom
## Multiple R-squared: 0.0007776, Adjusted R-squared: -0.0468
## F-statistic: 0.01634 on 1 and 21 DF, p-value: 0.8995
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.169348 -0.062050 -0.001605 0.040019 0.292237
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.493038 0.989902 2.518 0.0236 *
## total_visits_per_capita -0.023949 0.072411 -0.331 0.7454
## percent_under_125000 0.005923 0.002784 2.128 0.0504 .
## avg_household_size -0.201873 0.174406 -1.157 0.2652
## pop_density 9.389791 8.166134 1.150 0.2682
## `percent more than 1 occupant` 0.011411 0.012476 0.915 0.3749
## `percent more than 1 unit` -0.006852 0.003417 -2.005 0.0634 .
## avg_median_age -0.041333 0.014354 -2.880 0.0115 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1214 on 15 degrees of freedom
## Multiple R-squared: 0.536, Adjusted R-squared: 0.3195
## F-statistic: 2.476 on 7 and 15 DF, p-value: 0.06661
##
## [1] "Cases start date: 2020-06-23"
## [1] "Visits start date: 2020-06-09"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.648e-04 -2.525e-04 -1.663e-04 7.086e-05 1.047e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.294e-04 3.321e-04 0.691 0.497
## total_visits_per_capita 6.098e-05 1.038e-04 0.588 0.563
##
## Residual standard error: 0.0004153 on 21 degrees of freedom
## Multiple R-squared: 0.01617, Adjusted R-squared: -0.03068
## F-statistic: 0.3452 on 1 and 21 DF, p-value: 0.5631
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -6.270e-04 -1.478e-04 -2.330e-06 1.356e-04 6.076e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.917e-04 2.937e-03 0.167 0.8693
## total_visits_per_capita -3.404e-04 2.114e-04 -1.610 0.1282
## percent_under_125000 1.532e-05 8.406e-06 1.823 0.0884 .
## avg_household_size 5.507e-04 5.233e-04 1.052 0.3093
## pop_density -2.756e-02 2.442e-02 -1.129 0.2767
## `percent more than 1 occupant` -2.965e-06 3.847e-05 -0.077 0.9396
## `percent more than 1 unit` 1.062e-06 1.007e-05 0.105 0.9175
## avg_median_age -2.555e-05 4.371e-05 -0.585 0.5675
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003546 on 15 degrees of freedom
## Multiple R-squared: 0.4877, Adjusted R-squared: 0.2486
## F-statistic: 2.04 on 7 and 15 DF, p-value: 0.1168
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.648e-04 -2.525e-04 -1.663e-04 7.086e-05 1.047e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.294e-04 3.321e-04 0.691 0.497
## total_visits_per_capita 6.098e-05 1.038e-04 0.588 0.563
##
## Residual standard error: 0.0004153 on 21 degrees of freedom
## Multiple R-squared: 0.01617, Adjusted R-squared: -0.03068
## F-statistic: 0.3452 on 1 and 21 DF, p-value: 0.5631
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -6.270e-04 -1.478e-04 -2.330e-06 1.356e-04 6.076e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.917e-04 2.937e-03 0.167 0.8693
## total_visits_per_capita -3.404e-04 2.114e-04 -1.610 0.1282
## percent_under_125000 1.532e-05 8.406e-06 1.823 0.0884 .
## avg_household_size 5.507e-04 5.233e-04 1.052 0.3093
## pop_density -2.756e-02 2.442e-02 -1.129 0.2767
## `percent more than 1 occupant` -2.965e-06 3.847e-05 -0.077 0.9396
## `percent more than 1 unit` 1.062e-06 1.007e-05 0.105 0.9175
## avg_median_age -2.555e-05 4.371e-05 -0.585 0.5675
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003546 on 15 degrees of freedom
## Multiple R-squared: 0.4877, Adjusted R-squared: 0.2486
## F-statistic: 2.04 on 7 and 15 DF, p-value: 0.1168
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.088088 -0.032121 -0.004104 0.020494 0.131063
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.090042 0.045705 1.970 0.0622 .
## total_visits_per_capita 0.009217 0.014283 0.645 0.5257
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.05716 on 21 degrees of freedom
## Multiple R-squared: 0.01944, Adjusted R-squared: -0.02725
## F-statistic: 0.4164 on 1 and 21 DF, p-value: 0.5257
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.107721 -0.044921 -0.002889 0.026476 0.119747
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.1009771 0.5210098 0.194 0.849
## total_visits_per_capita -0.0104784 0.0374958 -0.279 0.784
## percent_under_125000 0.0005188 0.0014910 0.348 0.733
## avg_household_size 0.0599805 0.0928231 0.646 0.528
## pop_density 2.1120236 4.3304813 0.488 0.633
## `percent more than 1 occupant` -0.0057179 0.0068232 -0.838 0.415
## `percent more than 1 unit` 0.0002980 0.0017869 0.167 0.870
## avg_median_age -0.0032252 0.0077518 -0.416 0.683
##
## Residual standard error: 0.0629 on 15 degrees of freedom
## Multiple R-squared: 0.1519, Adjusted R-squared: -0.2439
## F-statistic: 0.3838 on 7 and 15 DF, p-value: 0.8977
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita, data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.648e-04 -2.525e-04 -1.663e-04 7.086e-05 1.047e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.294e-04 3.321e-04 0.691 0.497
## total_visits_per_capita 6.098e-05 1.038e-04 0.588 0.563
##
## Residual standard error: 0.0004153 on 21 degrees of freedom
## Multiple R-squared: 0.01617, Adjusted R-squared: -0.03068
## F-statistic: 0.3452 on 1 and 21 DF, p-value: 0.5631
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -6.270e-04 -1.478e-04 -2.330e-06 1.356e-04 6.076e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.917e-04 2.937e-03 0.167 0.8693
## total_visits_per_capita -3.404e-04 2.114e-04 -1.610 0.1282
## percent_under_125000 1.532e-05 8.406e-06 1.823 0.0884 .
## avg_household_size 5.507e-04 5.233e-04 1.052 0.3093
## pop_density -2.756e-02 2.442e-02 -1.129 0.2767
## `percent more than 1 occupant` -2.965e-06 3.847e-05 -0.077 0.9396
## `percent more than 1 unit` 1.062e-06 1.007e-05 0.105 0.9175
## avg_median_age -2.555e-05 4.371e-05 -0.585 0.5675
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003546 on 15 degrees of freedom
## Multiple R-squared: 0.4877, Adjusted R-squared: 0.2486
## F-statistic: 2.04 on 7 and 15 DF, p-value: 0.1168
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.088088 -0.032121 -0.004104 0.020494 0.131063
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.090042 0.045705 1.970 0.0622 .
## total_visits_per_capita 0.009217 0.014283 0.645 0.5257
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.05716 on 21 degrees of freedom
## Multiple R-squared: 0.01944, Adjusted R-squared: -0.02725
## F-statistic: 0.4164 on 1 and 21 DF, p-value: 0.5257
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.107721 -0.044921 -0.002889 0.026476 0.119747
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.1009771 0.5210098 0.194 0.849
## total_visits_per_capita -0.0104784 0.0374958 -0.279 0.784
## percent_under_125000 0.0005188 0.0014910 0.348 0.733
## avg_household_size 0.0599805 0.0928231 0.646 0.528
## pop_density 2.1120236 4.3304813 0.488 0.633
## `percent more than 1 occupant` -0.0057179 0.0068232 -0.838 0.415
## `percent more than 1 unit` 0.0002980 0.0017869 0.167 0.870
## avg_median_age -0.0032252 0.0077518 -0.416 0.683
##
## Residual standard error: 0.0629 on 15 degrees of freedom
## Multiple R-squared: 0.1519, Adjusted R-squared: -0.2439
## F-statistic: 0.3838 on 7 and 15 DF, p-value: 0.8977
model_results_1_sf <- model_results_1_sf %>%
mutate(visits_start_date = as.Date(cases_start_date) - visits_lag)
model_results_1_sf %>%
plot_ly() %>%
add_trace(x = ~visits_start_date, y = ~r_squared, type = 'scatter', mode = 'markers', color = ~model_type) %>%
add_trace(x = ~visits_start_date, y = ~r_squared, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "R squared for that model"), title = "R squared over time, 1 week time interval, 14 day lag, SF")
model_results_1_sf %>%
plot_ly() %>%
add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'markers', color = ~model_type) %>%
add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "Visits coefficient for that model"), title = "Visits coefficient over time, 1 week time interval, 14 day lag, SF")
# split the log and not log for coefficient since log coefficient is much larger
model_results_1_sf %>% filter(model_type != "change in log of cases, starting above 0" & model_type != "change in log of cases, starting above 10") %>%
plot_ly() %>%
add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'markers', color = ~model_type) %>%
add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "Visits coefficient for that model"), title = "Visits coefficient over time, 1 week time interval, 14 day lag, only non log, SF")
model_results_1_sf %>%
plot_ly() %>%
add_trace(x = ~visits_start_date, y = ~p_val, type = 'scatter', mode = 'markers', color = ~model_type) %>%
add_trace(x = ~visits_start_date, y = ~p_val, type = 'scatter', mode = 'lines', color = ~model_type, showlegend = F) %>%
layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "P value of coefficient for that model"), title = "P value of coefficient over time, 1 week time interval, 14 day lag, SF")
Hmm…what is going on with the missing data? Plot the SF case data to check.
sf_cases_zip %>% plot_ly() %>%
add_trace(x = ~date, y = ~cases_by_pop, color = ~zipcode, mode = "lines", type = "scatter")
Okay it looks like LA Times is just missing a bunch of SF data, or something weird was going on. So this method likely won’t be valid for SF data, unfortunately.
Repeating the same analysis from the previous part but with weighted visits data.
# same function as before, but with plots removed, and including analysis of weighted visits
testVisitsPredictionWeighted <- function(visits_zip, cases_zip, cases_start_date, time_window_length, visits_lag, dem_data, county_name) {
cases_end_date_inc <- cases_start_date + time_window_length
visits_start_date <- cases_start_date - visits_lag
visits_end_date_exc <- visits_start_date + time_window_length
print(paste0("Cases start date: ", cases_start_date))
print(paste0("Visits start date: ", visits_start_date))
init_cases <- cases_zip %>%
filter(date == cases_start_date) %>%
dplyr::select(zipcode, cases_by_pop, cases) %>%
rename(init_cases_by_pop = cases_by_pop, init_cases = cases) %>%
mutate(log_init_cases_by_pop = log(init_cases_by_pop))
# max cases (end date)
final_cases <- cases_zip %>%
filter(date == cases_end_date_inc) %>%
dplyr::select(zipcode, cases_by_pop, total_pop_zip, cases) %>%
rename(fin_cases_by_pop = cases_by_pop, fin_cases = cases) %>%
mutate(log_fin_cases_by_pop = log(fin_cases_by_pop))
# summarize visits add current and initial cases
visits_cases_change <- visits_zip %>%
filter(date >= visits_start_date & date < visits_end_date_exc) %>%
filter(!is.na(zipcode) & !is.na(total_visits)) %>%
group_by(zipcode) %>%
summarize(total_visits_per_capita = sum(visits_per_capita),
total_weighted_visits_per_capita = sum(weighted_visits_per_capita),
total_weighted_visit_hours_per_capita = sum(weighted_visit_hours_per_capita),
total_weighted_visit_hours_per_capita_v2 = sum(weighted_visit_hours_per_capita_v2),
total_visit_hours_per_capita = sum(visit_hours_per_capita),
total_visits_per_area_per_capita = sum(visits_per_area_per_capita),
total_visits = sum(total_visits)) %>%
left_join(final_cases) %>%
left_join(init_cases) %>%
filter(!is.na(fin_cases_by_pop)) %>%
mutate(change_log_cases_by_pop = log_fin_cases_by_pop - log_init_cases_by_pop,
change_cases_by_pop = fin_cases_by_pop - init_cases_by_pop)
visits_cases_change_start_non0 <- visits_cases_change %>% filter(init_cases_by_pop > 0)
# get linear model values
visits_cases_change_model <- lm(change_cases_by_pop ~ total_weighted_visits_per_capita, visits_cases_change)
visits_cases_change_model_non0 <- lm(change_cases_by_pop ~ total_weighted_visits_per_capita, visits_cases_change_start_non0)
visits_cases_change_model_log <- lm(change_log_cases_by_pop ~ total_weighted_visits_per_capita, visits_cases_change_start_non0)
visit_hrs_cases_change_model <- lm(change_cases_by_pop ~ total_visit_hours_per_capita, visits_cases_change)
visit_hrs_cases_change_model_non0 <- lm(change_cases_by_pop ~ total_visit_hours_per_capita, visits_cases_change_start_non0)
visit_hrs_cases_change_model_log <- lm(change_log_cases_by_pop ~ total_visit_hours_per_capita, visits_cases_change_start_non0)
wt_visit_hrs_cases_change_model <- lm(change_cases_by_pop ~ total_weighted_visit_hours_per_capita, visits_cases_change)
wt_visit_hrs_cases_change_model_non0 <- lm(change_cases_by_pop ~ total_weighted_visit_hours_per_capita, visits_cases_change_start_non0)
wt_visit_hrs_cases_change_model_log <- lm(change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, visits_cases_change_start_non0)
print("Weighted visits (by area and other visitors):")
print(summary(visits_cases_change_model))
print("Control for demographic variables:")
visits_cases_change_dem <- left_join(visits_cases_change, dem_data)
print(summary(lm(change_cases_by_pop ~ total_weighted_visits_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem)))
print(summary(visits_cases_change_model_non0))
print("Control for demographic variables:")
visits_cases_change_non0_dem <- left_join(visits_cases_change_start_non0, dem_data)
print(summary(lm(change_cases_by_pop ~ total_weighted_visits_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_non0_dem)))
print(summary(visits_cases_change_model_log))
print("Control for demographic variables:")
print(summary(lm(change_log_cases_by_pop ~ total_weighted_visits_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_non0_dem)))
print("Visit hours:")
print(summary(visit_hrs_cases_change_model))
print("Control for demographic variables:")
print(summary(lm(change_cases_by_pop ~ total_visit_hours_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem)))
print(summary(visit_hrs_cases_change_model_non0))
print("Control for demographic variables:")
print(summary(lm(change_cases_by_pop ~ total_visit_hours_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_non0_dem)))
print(summary(visit_hrs_cases_change_model_log))
print("Control for demographic variables:")
print(summary(lm(change_log_cases_by_pop ~ total_visit_hours_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_non0_dem)))
print("Weighted visit hours:")
print(summary(wt_visit_hrs_cases_change_model))
print("Control for demographic variables:")
print(summary(lm(change_cases_by_pop ~ total_weighted_visit_hours_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem)))
print(summary(wt_visit_hrs_cases_change_model_non0))
print("Control for demographic variables:")
print(summary(lm(change_cases_by_pop ~ total_weighted_visit_hours_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_non0_dem)))
print(summary(wt_visit_hrs_cases_change_model_log))
print("Control for demographic variables:")
print(summary(lm(change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_non0_dem)))
# try excluding values that started below 10 cases
visits_cases_change_exc <- visits_cases_change %>% filter(init_cases >= 10)
visits_cases_change_model_exc <- NA
visits_cases_change_model_exc_log <- NA
visit_hrs_cases_change_model_exc <- NA
visit_hrs_cases_change_model_exc_log <- NA
wt_visit_hrs_cases_change_model_exc <- NA
wt_visit_hrs_cases_change_model_exc_log <- NA
if (nrow(visits_cases_change_exc) > 0) {
visits_cases_change_model_exc <- lm(change_cases_by_pop ~ total_weighted_visits_per_capita, visits_cases_change_exc)
visits_cases_change_model_exc_log <- lm(change_log_cases_by_pop ~ total_weighted_visits_per_capita, visits_cases_change_exc)
visit_hrs_cases_change_model_exc <- lm(change_cases_by_pop ~ total_visit_hours_per_capita, visits_cases_change_exc)
visit_hrs_cases_change_model_exc_log <- lm(change_log_cases_by_pop ~ total_visit_hours_per_capita, visits_cases_change_exc)
wt_visit_hrs_cases_change_model_exc <- lm(change_cases_by_pop ~ total_weighted_visit_hours_per_capita, visits_cases_change_exc)
wt_visit_hrs_cases_change_model_exc_log <- lm(change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita, visits_cases_change_exc)
print("Weighted visits:")
print(summary(visits_cases_change_model_exc))
print("Control for demographic variables:")
visits_cases_change_dem_exc <- left_join(visits_cases_change_exc, dem_data)
print(summary(lm(change_cases_by_pop ~ total_weighted_visits_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem_exc)))
print(summary(visits_cases_change_model_exc_log))
print("Control for demographic variables:")
print(summary(lm(change_log_cases_by_pop ~ total_weighted_visits_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem_exc)))
print("Visit hours:")
print(summary(visit_hrs_cases_change_model_exc))
print("Control for demographic variables:")
print(summary(lm(change_cases_by_pop ~ total_visit_hours_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem_exc)))
print(summary(visit_hrs_cases_change_model_exc_log))
print("Control for demographic variables:")
print(summary(lm(change_log_cases_by_pop ~ total_visit_hours_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem_exc)))
print("Weighted visit hours:")
print(summary(wt_visit_hrs_cases_change_model_exc))
print("Control for demographic variables:")
print(summary(lm(change_cases_by_pop ~ total_weighted_visit_hours_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem_exc)))
print(summary(wt_visit_hrs_cases_change_model_exc_log))
print("Control for demographic variables:")
print(summary(lm(change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita + percent_under_125000 + avg_household_size + pop_density + `percent more than 1 occupant` + `percent more than 1 unit` + avg_median_age, data = visits_cases_change_dem_exc)))
}
return_vals <- data.frame(model_type = character(), weight_type = character(), coef_val = numeric(), p_val = numeric(), r_squared = numeric(), cases_start_date = character(), stringsAsFactors = FALSE)
cases_change <- data.frame(rbind(c("change in cases", "weighted visits", summary(visits_cases_change_model)$coefficients[2,1], summary(visits_cases_change_model)$coefficients[2,4], summary(visits_cases_change_model)$r.squared, as.character(cases_start_date)), c("change in cases", "visit hours", summary(visit_hrs_cases_change_model)$coefficients[2,1], summary(visit_hrs_cases_change_model)$coefficients[2,4], summary(visit_hrs_cases_change_model)$r.squared, as.character(cases_start_date)), c("change in cases", "weighted visit hours", summary(wt_visit_hrs_cases_change_model)$coefficients[2,1], summary(wt_visit_hrs_cases_change_model)$coefficients[2,4], summary(wt_visit_hrs_cases_change_model)$r.squared, as.character(cases_start_date))), stringsAsFactors = FALSE)
colnames(cases_change) <- c("model_type", "weight_type", "coef_val", "p_val", "r_squared", "cases_start_date")
cases_change_no0 <- data.frame(rbind(c("change in cases, starting above 0", "weighted visits", summary(visits_cases_change_model_non0)$coefficients[2,1], summary(visits_cases_change_model_non0)$coefficients[2,4], summary(visits_cases_change_model_non0)$r.squared, as.character(cases_start_date)), c("change in cases, starting above 0", "visit hours", summary(visit_hrs_cases_change_model_non0)$coefficients[2,1], summary(visit_hrs_cases_change_model_non0)$coefficients[2,4], summary(visit_hrs_cases_change_model_non0)$r.squared, as.character(cases_start_date)), c("change in cases, starting above 0", "weighted visit hours", summary(wt_visit_hrs_cases_change_model_non0)$coefficients[2,1], summary(wt_visit_hrs_cases_change_model_non0)$coefficients[2,4], summary(wt_visit_hrs_cases_change_model_non0)$r.squared, as.character(cases_start_date))), stringsAsFactors = FALSE)
colnames(cases_change_no0) <- c("model_type", "weight_type", "coef_val", "p_val", "r_squared", "cases_start_date")
cases_change_log <- data.frame(rbind(c("change in log of cases, starting above 0", "weighted visits", summary(visits_cases_change_model_log)$coefficients[2,1], summary(visits_cases_change_model_log)$coefficients[2,4], summary(visits_cases_change_model_log)$r.squared, as.character(cases_start_date)), c("change in log of cases, starting above 0", "visit hours", summary(visit_hrs_cases_change_model_log)$coefficients[2,1], summary(visit_hrs_cases_change_model_log)$coefficients[2,4], summary(visit_hrs_cases_change_model_log)$r.squared, as.character(cases_start_date)), c("change in log of cases, starting above 0", "weighted visit hours", summary(wt_visit_hrs_cases_change_model_log)$coefficients[2,1], summary(wt_visit_hrs_cases_change_model_log)$coefficients[2,4], summary(wt_visit_hrs_cases_change_model_log)$r.squared, as.character(cases_start_date))), stringsAsFactors = FALSE)
colnames(cases_change_log) <- c("model_type", "weight_type", "coef_val", "p_val", "r_squared", "cases_start_date")
return_vals <- rbind(return_vals, cases_change, cases_change_no0, cases_change_log)
# include the later two if there was more than one point in the model
if (nrow(visits_cases_change_exc) > 1) {
cases_change_10 <- data.frame(rbind(c("change in cases, starting above 10", "weighted visits", summary(visits_cases_change_model_exc)$coefficients[2,1], summary(visits_cases_change_model_exc)$coefficients[2,4], summary(visits_cases_change_model_exc)$r.squared, as.character(cases_start_date)), c("change in cases, starting above 10", "visit hours", summary(visit_hrs_cases_change_model_exc)$coefficients[2,1], summary(visit_hrs_cases_change_model_exc)$coefficients[2,4], summary(visit_hrs_cases_change_model_exc)$r.squared, as.character(cases_start_date)), c("change in cases, starting above 10", "weighted visit hours", summary(wt_visit_hrs_cases_change_model_exc)$coefficients[2,1], summary(wt_visit_hrs_cases_change_model_exc)$coefficients[2,4], summary(wt_visit_hrs_cases_change_model_exc)$r.squared, as.character(cases_start_date))), stringsAsFactors = FALSE)
colnames(cases_change_10) <- c("model_type", "weight_type", "coef_val", "p_val", "r_squared", "cases_start_date")
cases_change_10_log <- data.frame(rbind(c("change in log of cases, starting above 10", "weighted visits", summary(visits_cases_change_model_exc_log)$coefficients[2,1], summary(visits_cases_change_model_exc_log)$coefficients[2,4], summary(visits_cases_change_model_exc_log)$r.squared, as.character(cases_start_date)), c("change in log of cases, starting above 10", "visit hours", summary(visit_hrs_cases_change_model_exc_log)$coefficients[2,1], summary(visit_hrs_cases_change_model_exc_log)$coefficients[2,4], summary(visit_hrs_cases_change_model_exc_log)$r.squared, as.character(cases_start_date)), c("change in log of cases, starting above 10", "weighted visit hours", summary(wt_visit_hrs_cases_change_model_exc_log)$coefficients[2,1], summary(wt_visit_hrs_cases_change_model_exc_log)$coefficients[2,4], summary(wt_visit_hrs_cases_change_model_exc_log)$r.squared, as.character(cases_start_date))), stringsAsFactors = FALSE)
colnames(cases_change_10_log) <- c("model_type", "weight_type", "coef_val", "p_val", "r_squared", "cases_start_date")
return_vals <- rbind(return_vals, cases_change_10, cases_change_10_log)
}
return(return_vals)
}
cases_start_date <- as.Date("2020-03-23") # first cases start date to use
visits_lag <- 14 # in days
time_window_length <- 7 # in days
# data frame to store results
model_results_wt <- data.frame(model_type = character(), weight_type = character(), coef_val = numeric(), p_val = numeric(), r_squared = numeric(), cases_start_date = character(), stringsAsFactors = FALSE)
while(cases_start_date + time_window_length <= max(ac_cases_zip$date)) {
model_results_curr <- testVisitsPredictionWeighted(ac_visits_zip, ac_cases_zip, cases_start_date, time_window_length, visits_lag, ac_dem_data, "Alameda")
model_results_wt <- rbind(model_results_wt, model_results_curr)
cases_start_date <- cases_start_date + time_window_length # run again with new start date
}
## [1] "Cases start date: 2020-03-23"
## [1] "Visits start date: 2020-03-09"
## [1] "Weighted visits (by area and other visitors):"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.005e-04 -7.154e-05 -5.761e-05 5.749e-05 2.458e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.227e-05 5.444e-05 0.225 0.823
## total_weighted_visits_per_capita 1.297e-03 1.135e-03 1.143 0.259
##
## Residual standard error: 0.000106 on 44 degrees of freedom
## Multiple R-squared: 0.02883, Adjusted R-squared: 0.006763
## F-statistic: 1.306 on 1 and 44 DF, p-value: 0.2592
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.101e-04 -7.584e-05 -1.958e-05 3.074e-05 2.773e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.379e-04 5.633e-04 -0.422 0.675
## total_weighted_visits_per_capita 2.317e-03 1.518e-03 1.527 0.135
## percent_under_125000 5.481e-07 1.894e-06 0.289 0.774
## avg_household_size 1.265e-05 1.191e-04 0.106 0.916
## pop_density -1.378e-02 1.060e-02 -1.300 0.201
## `percent more than 1 occupant` 6.363e-06 9.167e-06 0.694 0.492
## `percent more than 1 unit` 8.802e-07 2.202e-06 0.400 0.692
## avg_median_age 2.398e-06 6.175e-06 0.388 0.700
##
## Residual standard error: 0.0001057 on 38 degrees of freedom
## Multiple R-squared: 0.1657, Adjusted R-squared: 0.01205
## F-statistic: 1.078 on 7 and 38 DF, p-value: 0.396
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -8.210e-05 -6.513e-05 -5.378e-05 5.681e-05 2.517e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.187e-05 6.077e-05 0.360 0.721
## total_weighted_visits_per_capita 8.856e-04 1.267e-03 0.699 0.489
##
## Residual standard error: 0.0001026 on 38 degrees of freedom
## Multiple R-squared: 0.01269, Adjusted R-squared: -0.01329
## F-statistic: 0.4884 on 1 and 38 DF, p-value: 0.4889
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.112e-04 -6.654e-05 -4.073e-06 3.347e-05 1.965e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.693e-04 5.382e-04 -0.872 0.390
## total_weighted_visits_per_capita 2.438e-03 1.556e-03 1.567 0.127
## percent_under_125000 7.338e-07 1.822e-06 0.403 0.690
## avg_household_size 2.708e-05 1.127e-04 0.240 0.812
## pop_density -1.623e-02 1.150e-02 -1.411 0.168
## `percent more than 1 occupant` 1.002e-05 9.661e-06 1.037 0.308
## `percent more than 1 unit` 1.350e-06 2.111e-06 0.640 0.527
## avg_median_age 5.729e-06 6.146e-06 0.932 0.358
##
## Residual standard error: 9.809e-05 on 32 degrees of freedom
## Multiple R-squared: 0.2396, Adjusted R-squared: 0.07329
## F-statistic: 1.441 on 7 and 32 DF, p-value: 0.2239
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.3919 -0.3364 -0.2993 0.3521 1.4877
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.1950 0.3114 0.626 0.535
## total_weighted_visits_per_capita 2.8954 6.4933 0.446 0.658
##
## Residual standard error: 0.5255 on 38 degrees of freedom
## Multiple R-squared: 0.005205, Adjusted R-squared: -0.02097
## F-statistic: 0.1988 on 1 and 38 DF, p-value: 0.6582
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.65103 -0.31479 -0.00249 0.28352 1.05000
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.589722 2.641463 -0.980 0.334
## total_weighted_visits_per_capita 11.116627 7.635558 1.456 0.155
## percent_under_125000 0.001218 0.008941 0.136 0.893
## avg_household_size 0.218683 0.553268 0.395 0.695
## pop_density -70.209649 56.449657 -1.244 0.223
## `percent more than 1 occupant` 0.061474 0.047417 1.296 0.204
## `percent more than 1 unit` 0.006981 0.010359 0.674 0.505
## avg_median_age 0.031484 0.030164 1.044 0.304
##
## Residual standard error: 0.4814 on 32 degrees of freedom
## Multiple R-squared: 0.297, Adjusted R-squared: 0.1433
## F-statistic: 1.932 on 7 and 32 DF, p-value: 0.09685
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.063e-04 -7.214e-05 -5.202e-05 6.411e-05 2.435e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.908e-05 9.739e-05 -0.401 0.690
## total_visit_hours_per_capita 1.680e-05 1.456e-05 1.154 0.255
##
## Residual standard error: 0.0001059 on 44 degrees of freedom
## Multiple R-squared: 0.0294, Adjusted R-squared: 0.007338
## F-statistic: 1.333 on 1 and 44 DF, p-value: 0.2546
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.145e-04 -7.490e-05 -2.311e-05 2.787e-05 2.752e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.683e-04 5.787e-04 -0.464 0.646
## total_visit_hours_per_capita 1.569e-05 2.096e-05 0.748 0.459
## percent_under_125000 1.377e-06 2.029e-06 0.679 0.502
## avg_household_size 1.246e-05 1.274e-04 0.098 0.923
## pop_density -9.597e-03 1.039e-02 -0.923 0.362
## `percent more than 1 occupant` 3.323e-06 9.088e-06 0.366 0.717
## `percent more than 1 unit` 1.110e-07 2.225e-06 0.050 0.960
## avg_median_age 2.943e-06 6.302e-06 0.467 0.643
##
## Residual standard error: 0.0001081 on 38 degrees of freedom
## Multiple R-squared: 0.1274, Adjusted R-squared: -0.03335
## F-statistic: 0.7925 on 7 and 38 DF, p-value: 0.5981
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.011e-04 -6.287e-05 -4.305e-05 4.307e-05 2.461e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -7.022e-05 1.103e-04 -0.636 0.528
## total_visit_hours_per_capita 1.980e-05 1.625e-05 1.218 0.231
##
## Residual standard error: 0.0001013 on 38 degrees of freedom
## Multiple R-squared: 0.0376, Adjusted R-squared: 0.01228
## F-statistic: 1.485 on 1 and 38 DF, p-value: 0.2306
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.311e-04 -6.398e-05 -2.143e-05 3.844e-05 2.489e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -5.018e-04 5.530e-04 -0.908 0.371
## total_visit_hours_per_capita 2.430e-05 2.124e-05 1.144 0.261
## percent_under_125000 1.782e-06 1.946e-06 0.916 0.367
## avg_household_size 5.948e-06 1.204e-04 0.049 0.961
## pop_density -1.108e-02 1.118e-02 -0.992 0.329
## `percent more than 1 occupant` 7.491e-06 9.529e-06 0.786 0.438
## `percent more than 1 unit` 3.460e-07 2.116e-06 0.164 0.871
## avg_median_age 6.165e-06 6.269e-06 0.983 0.333
##
## Residual standard error: 9.976e-05 on 32 degrees of freedom
## Multiple R-squared: 0.2134, Adjusted R-squared: 0.04136
## F-statistic: 1.24 on 7 and 32 DF, p-value: 0.3105
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.5567 -0.3292 -0.2111 0.3073 1.4744
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.46347 0.55918 -0.829 0.412
## total_visit_hours_per_capita 0.11791 0.08235 1.432 0.160
##
## Residual standard error: 0.5132 on 38 degrees of freedom
## Multiple R-squared: 0.0512, Adjusted R-squared: 0.02623
## F-statistic: 2.05 on 1 and 38 DF, p-value: 0.1603
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.77683 -0.32206 -0.07357 0.26728 0.99111
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.815002 2.690734 -1.046 0.303
## total_visit_hours_per_capita 0.128742 0.103353 1.246 0.222
## percent_under_125000 0.006531 0.009468 0.690 0.495
## avg_household_size 0.088588 0.585654 0.151 0.881
## pop_density -46.899025 54.392703 -0.862 0.395
## `percent more than 1 occupant` 0.051648 0.046368 1.114 0.274
## `percent more than 1 unit` 0.002175 0.010296 0.211 0.834
## avg_median_age 0.033881 0.030506 1.111 0.275
##
## Residual standard error: 0.4855 on 32 degrees of freedom
## Multiple R-squared: 0.2851, Adjusted R-squared: 0.1288
## F-statistic: 1.823 on 7 and 32 DF, p-value: 0.1168
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.002e-04 -7.045e-05 -5.894e-05 5.202e-05 2.501e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.075e-05 4.411e-05 0.470 0.640
## total_weighted_visit_hours_per_capita 1.241e-03 1.002e-03 1.239 0.222
##
## Residual standard error: 0.0001057 on 44 degrees of freedom
## Multiple R-squared: 0.03372, Adjusted R-squared: 0.01176
## F-statistic: 1.535 on 1 and 44 DF, p-value: 0.2219
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.276e-04 -6.846e-05 -3.050e-05 2.680e-05 2.802e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.852e-04 5.585e-04 -0.332 0.7419
## total_weighted_visit_hours_per_capita 2.182e-03 1.239e-03 1.760 0.0864 .
## percent_under_125000 6.182e-07 1.870e-06 0.331 0.7428
## avg_household_size 3.817e-06 1.184e-04 0.032 0.9745
## pop_density -1.361e-02 1.037e-02 -1.312 0.1972
## `percent more than 1 occupant` 7.190e-06 9.116e-06 0.789 0.4352
## `percent more than 1 unit` 5.542e-07 2.151e-06 0.258 0.7981
## avg_median_age 2.163e-06 6.123e-06 0.353 0.7258
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001047 on 38 degrees of freedom
## Multiple R-squared: 0.1813, Adjusted R-squared: 0.0305
## F-statistic: 1.202 on 7 and 38 DF, p-value: 0.3252
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -7.706e-05 -6.331e-05 -5.687e-05 6.058e-05 2.517e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.711e-05 5.161e-05 0.719 0.476
## total_weighted_visit_hours_per_capita 6.238e-04 1.190e-03 0.524 0.603
##
## Residual standard error: 0.0001029 on 38 degrees of freedom
## Multiple R-squared: 0.007182, Adjusted R-squared: -0.01894
## F-statistic: 0.2749 on 1 and 38 DF, p-value: 0.6031
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.293e-04 -5.785e-05 -1.634e-05 2.879e-05 1.971e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.291e-04 5.334e-04 -0.804 0.427
## total_weighted_visit_hours_per_capita 2.362e-03 1.395e-03 1.693 0.100
## percent_under_125000 7.679e-07 1.808e-06 0.425 0.674
## avg_household_size 1.826e-05 1.127e-04 0.162 0.872
## pop_density -1.561e-02 1.127e-02 -1.385 0.176
## `percent more than 1 occupant` 1.154e-05 9.845e-06 1.172 0.250
## `percent more than 1 unit` 9.252e-07 2.058e-06 0.450 0.656
## avg_median_age 5.779e-06 6.110e-06 0.946 0.351
##
## Residual standard error: 9.751e-05 on 32 degrees of freedom
## Multiple R-squared: 0.2486, Adjusted R-squared: 0.08418
## F-statistic: 1.512 on 7 and 32 DF, p-value: 0.1986
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.3625 -0.3300 -0.3147 0.3524 1.4808
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.2680 0.2642 1.014 0.317
## total_weighted_visit_hours_per_capita 1.4766 6.0901 0.242 0.810
##
## Residual standard error: 0.5265 on 38 degrees of freedom
## Multiple R-squared: 0.001545, Adjusted R-squared: -0.02473
## F-statistic: 0.05879 on 1 and 38 DF, p-value: 0.8097
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.70619 -0.28660 -0.06085 0.27004 1.04832
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.413383 2.609803 -0.925 0.362
## total_weighted_visit_hours_per_capita 11.304460 6.824762 1.656 0.107
## percent_under_125000 0.001306 0.008843 0.148 0.883
## avg_household_size 0.170902 0.551451 0.310 0.759
## pop_density -68.458018 55.147723 -1.241 0.223
## `percent more than 1 occupant` 0.069850 0.048166 1.450 0.157
## `percent more than 1 unit` 0.005105 0.010066 0.507 0.615
## avg_median_age 0.031749 0.029893 1.062 0.296
##
## Residual standard error: 0.4771 on 32 degrees of freedom
## Multiple R-squared: 0.3097, Adjusted R-squared: 0.1587
## F-statistic: 2.051 on 7 and 32 DF, p-value: 0.0788
##
## [1] "Weighted visits:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
##
## Coefficients: (1 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0002004 NA NA NA
## total_weighted_visits_per_capita NA NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
##
## Coefficients: (7 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0002004 NA NA NA
## total_weighted_visits_per_capita NA NA NA NA
## percent_under_125000 NA NA NA NA
## avg_household_size NA NA NA NA
## pop_density NA NA NA NA
## `percent more than 1 occupant` NA NA NA NA
## `percent more than 1 unit` NA NA NA NA
## avg_median_age NA NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
##
## Coefficients: (1 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.5878 NA NA NA
## total_weighted_visits_per_capita NA NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
##
## Coefficients: (7 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.5878 NA NA NA
## total_weighted_visits_per_capita NA NA NA NA
## percent_under_125000 NA NA NA NA
## avg_household_size NA NA NA NA
## pop_density NA NA NA NA
## `percent more than 1 occupant` NA NA NA NA
## `percent more than 1 unit` NA NA NA NA
## avg_median_age NA NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
##
## Coefficients: (1 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0002004 NA NA NA
## total_visit_hours_per_capita NA NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
##
## Coefficients: (7 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0002004 NA NA NA
## total_visit_hours_per_capita NA NA NA NA
## percent_under_125000 NA NA NA NA
## avg_household_size NA NA NA NA
## pop_density NA NA NA NA
## `percent more than 1 occupant` NA NA NA NA
## `percent more than 1 unit` NA NA NA NA
## avg_median_age NA NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
##
## Coefficients: (1 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.5878 NA NA NA
## total_visit_hours_per_capita NA NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
##
## Coefficients: (7 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.5878 NA NA NA
## total_visit_hours_per_capita NA NA NA NA
## percent_under_125000 NA NA NA NA
## avg_household_size NA NA NA NA
## pop_density NA NA NA NA
## `percent more than 1 occupant` NA NA NA NA
## `percent more than 1 unit` NA NA NA NA
## avg_median_age NA NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
##
## Coefficients: (1 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0002004 NA NA NA
## total_weighted_visit_hours_per_capita NA NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
##
## Coefficients: (7 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0002004 NA NA NA
## total_weighted_visit_hours_per_capita NA NA NA NA
## percent_under_125000 NA NA NA NA
## avg_household_size NA NA NA NA
## pop_density NA NA NA NA
## `percent more than 1 occupant` NA NA NA NA
## `percent more than 1 unit` NA NA NA NA
## avg_median_age NA NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
##
## Coefficients: (1 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.5878 NA NA NA
## total_weighted_visit_hours_per_capita NA NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## ALL 1 residuals are 0: no residual degrees of freedom!
##
## Coefficients: (7 not defined because of singularities)
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.5878 NA NA NA
## total_weighted_visit_hours_per_capita NA NA NA NA
## percent_under_125000 NA NA NA NA
## avg_household_size NA NA NA NA
## pop_density NA NA NA NA
## `percent more than 1 occupant` NA NA NA NA
## `percent more than 1 unit` NA NA NA NA
## avg_median_age NA NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
##
## [1] "Cases start date: 2020-03-30"
## [1] "Visits start date: 2020-03-16"
## [1] "Weighted visits (by area and other visitors):"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.901e-04 -1.690e-04 -2.379e-05 3.439e-05 4.589e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0002032 0.0001075 1.890 0.0654 .
## total_weighted_visits_per_capita -0.0011135 0.0044230 -0.252 0.8024
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001794 on 44 degrees of freedom
## Multiple R-squared: 0.001438, Adjusted R-squared: -0.02126
## F-statistic: 0.06338 on 1 and 44 DF, p-value: 0.8024
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.643e-04 -9.216e-05 -1.137e-05 9.515e-05 2.912e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.189e-04 7.808e-04 0.280 0.780746
## total_weighted_visits_per_capita -1.472e-03 4.523e-03 -0.325 0.746633
## percent_under_125000 6.576e-06 2.776e-06 2.369 0.023040 *
## avg_household_size 8.851e-05 1.671e-04 0.530 0.599387
## pop_density -5.365e-02 1.423e-02 -3.771 0.000553 ***
## `percent more than 1 occupant` -1.223e-05 1.246e-05 -0.981 0.332856
## `percent more than 1 unit` 1.299e-06 3.119e-06 0.417 0.679332
## avg_median_age -1.258e-05 8.635e-06 -1.457 0.153420
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001451 on 38 degrees of freedom
## Multiple R-squared: 0.4357, Adjusted R-squared: 0.3318
## F-statistic: 4.192 on 7 and 38 DF, p-value: 0.001651
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.675e-04 -1.577e-04 -1.321e-05 3.421e-05 4.453e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.739e-04 9.903e-05 1.756 0.0864 .
## total_weighted_visits_per_capita -5.458e-04 4.064e-03 -0.134 0.8938
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001645 on 42 degrees of freedom
## Multiple R-squared: 0.0004293, Adjusted R-squared: -0.02337
## F-statistic: 0.01804 on 1 and 42 DF, p-value: 0.8938
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.426e-04 -9.993e-05 -4.397e-06 5.594e-05 2.894e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.608e-04 7.095e-04 0.227 0.82195
## total_weighted_visits_per_capita -2.970e-03 4.130e-03 -0.719 0.47673
## percent_under_125000 6.191e-06 2.543e-06 2.434 0.02001 *
## avg_household_size 2.745e-05 1.525e-04 0.180 0.85816
## pop_density -4.789e-02 1.400e-02 -3.421 0.00157 **
## `percent more than 1 occupant` -1.138e-06 1.180e-05 -0.096 0.92372
## `percent more than 1 unit` -2.925e-07 2.890e-06 -0.101 0.91993
## avg_median_age -6.302e-06 8.108e-06 -0.777 0.44211
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001314 on 36 degrees of freedom
## Multiple R-squared: 0.453, Adjusted R-squared: 0.3466
## F-statistic: 4.258 on 7 and 36 DF, p-value: 0.001625
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.56358 -0.51153 0.09404 0.34210 0.69425
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.4672 0.2524 1.851 0.0712 .
## total_weighted_visits_per_capita 2.2838 10.3586 0.220 0.8266
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.4192 on 42 degrees of freedom
## Multiple R-squared: 0.001156, Adjusted R-squared: -0.02263
## F-statistic: 0.04861 on 1 and 42 DF, p-value: 0.8266
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.54729 -0.18195 -0.04472 0.13782 0.61384
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.411e-01 1.719e+00 -0.257 0.798922
## total_weighted_visits_per_capita -5.415e-01 1.000e+01 -0.054 0.957133
## percent_under_125000 8.316e-03 6.161e-03 1.350 0.185525
## avg_household_size 2.885e-01 3.694e-01 0.781 0.439902
## pop_density -1.247e+02 3.391e+01 -3.678 0.000762 ***
## `percent more than 1 occupant` 6.448e-03 2.859e-02 0.226 0.822815
## `percent more than 1 unit` 5.769e-03 7.000e-03 0.824 0.415299
## avg_median_age -7.378e-03 1.964e-02 -0.376 0.709373
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.3184 on 36 degrees of freedom
## Multiple R-squared: 0.5062, Adjusted R-squared: 0.4102
## F-statistic: 5.272 on 7 and 36 DF, p-value: 0.0003291
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.829e-04 -1.694e-04 -2.350e-05 2.114e-05 4.709e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.476e-04 1.586e-04 0.931 0.357
## total_visit_hours_per_capita 6.429e-06 3.424e-05 0.188 0.852
##
## Residual standard error: 0.0001795 on 44 degrees of freedom
## Multiple R-squared: 0.0008008, Adjusted R-squared: -0.02191
## F-statistic: 0.03526 on 1 and 44 DF, p-value: 0.8519
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.676e-04 -8.432e-05 -2.033e-05 8.632e-05 2.828e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 8.606e-05 7.643e-04 0.113 0.910937
## total_visit_hours_per_capita -3.922e-05 3.224e-05 -1.217 0.231170
## percent_under_125000 7.113e-06 2.636e-06 2.698 0.010338 *
## avg_household_size 1.313e-04 1.598e-04 0.821 0.416557
## pop_density -5.487e-02 1.368e-02 -4.011 0.000273 ***
## `percent more than 1 occupant` -1.274e-05 1.173e-05 -1.086 0.284469
## `percent more than 1 unit` 1.921e-06 2.934e-06 0.655 0.516509
## avg_median_age -9.848e-06 8.742e-06 -1.127 0.267004
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001426 on 38 degrees of freedom
## Multiple R-squared: 0.4554, Adjusted R-squared: 0.355
## F-statistic: 4.539 on 7 and 38 DF, p-value: 0.0009283
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.013e-04 -1.128e-04 -1.661e-05 4.808e-05 4.830e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -5.175e-05 1.527e-04 -0.339 0.736
## total_visit_hours_per_capita 4.603e-05 3.262e-05 1.411 0.166
##
## Residual standard error: 0.0001608 on 42 degrees of freedom
## Multiple R-squared: 0.04526, Adjusted R-squared: 0.02253
## F-statistic: 1.991 on 1 and 42 DF, p-value: 0.1656
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.592e-04 -8.823e-05 -9.657e-06 5.934e-05 2.848e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 5.691e-05 7.125e-04 0.080 0.936780
## total_visit_hours_per_capita -1.445e-05 3.219e-05 -0.449 0.656209
## percent_under_125000 5.914e-06 2.531e-06 2.336 0.025157 *
## avg_household_size 7.073e-05 1.500e-04 0.472 0.640049
## pop_density -5.062e-02 1.399e-02 -3.618 0.000905 ***
## `percent more than 1 occupant` -3.951e-06 1.129e-05 -0.350 0.728352
## `percent more than 1 unit` 5.583e-07 2.809e-06 0.199 0.843581
## avg_median_age -6.549e-06 8.281e-06 -0.791 0.434231
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000132 on 36 degrees of freedom
## Multiple R-squared: 0.4482, Adjusted R-squared: 0.3409
## F-statistic: 4.177 on 7 and 36 DF, p-value: 0.001856
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.64067 -0.35991 0.07552 0.32431 0.71373
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.11070 0.38604 -0.287 0.776
## total_visit_hours_per_capita 0.13669 0.08247 1.657 0.105
##
## Residual standard error: 0.4064 on 42 degrees of freedom
## Multiple R-squared: 0.06139, Adjusted R-squared: 0.03905
## F-statistic: 2.747 on 1 and 42 DF, p-value: 0.1049
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.56226 -0.18071 -0.04641 0.14499 0.59599
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -5.485e-01 1.714e+00 -0.320 0.750768
## total_visit_hours_per_capita -3.478e-02 7.741e-02 -0.449 0.655899
## percent_under_125000 9.126e-03 6.089e-03 1.499 0.142621
## avg_household_size 3.252e-01 3.607e-01 0.901 0.373328
## pop_density -1.273e+02 3.366e+01 -3.783 0.000564 ***
## `percent more than 1 occupant` 5.478e-03 2.715e-02 0.202 0.841240
## `percent more than 1 unit` 6.415e-03 6.756e-03 0.949 0.348719
## avg_median_age -5.059e-03 1.992e-02 -0.254 0.800922
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.3175 on 36 degrees of freedom
## Multiple R-squared: 0.5089, Adjusted R-squared: 0.4134
## F-statistic: 5.33 on 7 and 36 DF, p-value: 0.0003016
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.139e-04 -1.254e-04 -3.004e-05 8.281e-05 4.251e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.464e-04 4.166e-05 5.915 4.5e-07
## total_weighted_visit_hours_per_capita -1.835e-03 8.753e-04 -2.097 0.0418
##
## (Intercept) ***
## total_weighted_visit_hours_per_capita *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001712 on 44 degrees of freedom
## Multiple R-squared: 0.09084, Adjusted R-squared: 0.07018
## F-statistic: 4.396 on 1 and 44 DF, p-value: 0.0418
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.532e-04 -8.619e-05 -2.080e-05 8.801e-05 2.910e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.281e-04 7.842e-04 0.291 0.772794
## total_weighted_visit_hours_per_capita -2.928e-04 8.692e-04 -0.337 0.738042
## percent_under_125000 6.235e-06 2.583e-06 2.414 0.020721
## avg_household_size 8.651e-05 1.683e-04 0.514 0.610218
## pop_density -5.292e-02 1.478e-02 -3.580 0.000959
## `percent more than 1 occupant` -1.224e-05 1.242e-05 -0.986 0.330547
## `percent more than 1 unit` 1.272e-06 3.134e-06 0.406 0.687244
## avg_median_age -1.275e-05 8.540e-06 -1.493 0.143800
##
## (Intercept)
## total_weighted_visit_hours_per_capita
## percent_under_125000 *
## avg_household_size
## pop_density ***
## `percent more than 1 occupant`
## `percent more than 1 unit`
## avg_median_age
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001451 on 38 degrees of freedom
## Multiple R-squared: 0.4358, Adjusted R-squared: 0.3319
## F-statistic: 4.194 on 7 and 38 DF, p-value: 0.001646
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.950e-04 -1.218e-04 -1.669e-05 3.900e-05 4.087e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.246e-04 3.876e-05 5.795 7.82e-07
## total_weighted_visit_hours_per_capita -1.670e-03 8.063e-04 -2.071 0.0446
##
## (Intercept) ***
## total_weighted_visit_hours_per_capita *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001567 on 42 degrees of freedom
## Multiple R-squared: 0.09264, Adjusted R-squared: 0.07104
## F-statistic: 4.288 on 1 and 42 DF, p-value: 0.04456
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.149e-04 -9.610e-05 -6.103e-06 6.274e-05 2.941e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.914e-04 7.114e-04 0.269 0.78939
## total_weighted_visit_hours_per_capita -6.603e-04 7.934e-04 -0.832 0.41076
## percent_under_125000 5.477e-06 2.365e-06 2.316 0.02636 *
## avg_household_size 1.873e-05 1.535e-04 0.122 0.90357
## pop_density -4.573e-02 1.454e-02 -3.145 0.00332 **
## `percent more than 1 occupant` -7.631e-07 1.176e-05 -0.065 0.94863
## `percent more than 1 unit` -4.614e-07 2.910e-06 -0.159 0.87492
## avg_median_age -6.519e-06 7.991e-06 -0.816 0.41999
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001311 on 36 degrees of freedom
## Multiple R-squared: 0.4556, Adjusted R-squared: 0.3497
## F-statistic: 4.303 on 7 and 36 DF, p-value: 0.00151
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.6092 -0.3607 0.1014 0.2976 0.6710
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.68597 0.09866 6.953 1.7e-08 ***
## total_weighted_visit_hours_per_capita -4.32782 2.05241 -2.109 0.041 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.3989 on 42 degrees of freedom
## Multiple R-squared: 0.09573, Adjusted R-squared: 0.0742
## F-statistic: 4.446 on 1 and 42 DF, p-value: 0.04098
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.5685 -0.1828 -0.0353 0.1596 0.6112
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.514e-01 1.715e+00 -0.147 0.88427
## total_weighted_visit_hours_per_capita -1.403e+00 1.912e+00 -0.734 0.46778
## percent_under_125000 8.088e-03 5.700e-03 1.419 0.16454
## avg_household_size 2.110e-01 3.701e-01 0.570 0.57209
## pop_density -1.167e+02 3.505e+01 -3.329 0.00202 **
## `percent more than 1 occupant` 1.231e-02 2.835e-02 0.434 0.66669
## `percent more than 1 unit` 4.185e-03 7.014e-03 0.597 0.55445
## avg_median_age -5.296e-03 1.926e-02 -0.275 0.78492
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.316 on 36 degrees of freedom
## Multiple R-squared: 0.5135, Adjusted R-squared: 0.4189
## F-statistic: 5.427 on 7 and 36 DF, p-value: 0.0002604
##
## [1] "Weighted visits:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.176e-04 -7.048e-05 -3.280e-05 7.025e-05 2.562e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -5.331e-05 2.381e-04 -0.224 0.827
## total_weighted_visits_per_capita 1.475e-02 1.075e-02 1.372 0.197
##
## Residual standard error: 0.0001548 on 11 degrees of freedom
## Multiple R-squared: 0.1461, Adjusted R-squared: 0.0685
## F-statistic: 1.882 on 1 and 11 DF, p-value: 0.1974
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## 1 2 3 4 5 6 7
## -1.247e-05 -3.759e-05 8.893e-05 -4.427e-06 1.295e-04 -7.418e-05 -5.215e-05
## 8 9 10 11 12 13
## -4.045e-05 -6.185e-05 -4.273e-05 1.087e-04 4.663e-06 -5.869e-06
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.510e-03 1.844e-03 -1.904 0.1153
## total_weighted_visits_per_capita -3.087e-02 1.996e-02 -1.546 0.1827
## percent_under_125000 2.322e-05 6.969e-06 3.332 0.0207 *
## avg_household_size 2.897e-05 5.775e-04 0.050 0.9619
## pop_density -1.046e-01 1.094e-01 -0.956 0.3829
## `percent more than 1 occupant` 2.832e-05 7.557e-05 0.375 0.7232
## `percent more than 1 unit` 5.538e-06 1.139e-05 0.486 0.6473
## avg_median_age 6.829e-05 5.589e-05 1.222 0.2762
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001036 on 5 degrees of freedom
## Multiple R-squared: 0.8262, Adjusted R-squared: 0.5829
## F-statistic: 3.396 on 7 and 5 DF, p-value: 0.09853
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.36163 -0.21464 -0.00523 0.15951 0.39810
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.2169 0.3941 0.55 0.593
## total_weighted_visits_per_capita 17.7926 17.7895 1.00 0.339
##
## Residual standard error: 0.2562 on 11 degrees of freedom
## Multiple R-squared: 0.08336, Adjusted R-squared: 2.897e-05
## F-statistic: 1 on 1 and 11 DF, p-value: 0.3387
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## 1 2 3 4 5 6 7 8
## 0.054388 -0.115682 0.079438 -0.030079 0.298423 -0.041558 -0.064716 -0.218999
## 9 10 11 12 13
## -0.049569 0.023780 0.120139 -0.062350 0.006785
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.08504 3.45091 -1.184 0.2897
## total_weighted_visits_per_capita -61.33046 37.36303 -1.641 0.1616
## percent_under_125000 0.03441 0.01304 2.639 0.0461 *
## avg_household_size 0.93747 1.08090 0.867 0.4254
## pop_density -21.92217 204.67117 -0.107 0.9189
## `percent more than 1 occupant` -0.06911 0.14144 -0.489 0.6458
## `percent more than 1 unit` 0.01761 0.02132 0.826 0.4464
## avg_median_age 0.02828 0.10460 0.270 0.7977
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1938 on 5 degrees of freedom
## Multiple R-squared: 0.7614, Adjusted R-squared: 0.4274
## F-statistic: 2.279 on 7 and 5 DF, p-value: 0.1907
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.066e-04 -9.185e-05 -5.190e-05 8.894e-05 2.486e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.072e-04 2.583e-04 -0.802 0.4395
## total_visit_hours_per_capita 9.789e-05 5.255e-05 1.863 0.0894 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000146 on 11 degrees of freedom
## Multiple R-squared: 0.2398, Adjusted R-squared: 0.1707
## F-statistic: 3.47 on 1 and 11 DF, p-value: 0.08939
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## 1 2 3 4 5 6 7
## -8.307e-05 -6.242e-05 8.305e-05 -6.561e-05 9.454e-05 8.266e-06 7.300e-06
## 8 9 10 11 12 13
## -5.038e-05 2.852e-06 1.618e-05 6.322e-05 -1.486e-05 9.302e-07
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -5.743e-03 1.613e-03 -3.561 0.0162 *
## total_visit_hours_per_capita 1.007e-04 4.328e-05 2.326 0.0676 .
## percent_under_125000 1.701e-05 4.308e-06 3.949 0.0109 *
## avg_household_size -8.061e-04 5.074e-04 -1.589 0.1730
## pop_density -2.090e-01 9.042e-02 -2.311 0.0688 .
## `percent more than 1 occupant` 1.482e-04 6.384e-05 2.321 0.0680 .
## `percent more than 1 unit` -8.782e-06 9.868e-06 -0.890 0.4143
## avg_median_age 1.596e-04 4.963e-05 3.217 0.0235 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 8.728e-05 on 5 degrees of freedom
## Multiple R-squared: 0.8766, Adjusted R-squared: 0.7038
## F-statistic: 5.074 on 7 and 5 DF, p-value: 0.04622
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.28588 -0.21476 0.04307 0.15274 0.31745
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.2306 0.3987 -0.578 0.5747
## total_visit_hours_per_capita 0.1720 0.0811 2.121 0.0574 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.2254 on 11 degrees of freedom
## Multiple R-squared: 0.2903, Adjusted R-squared: 0.2258
## F-statistic: 4.5 on 1 and 11 DF, p-value: 0.05745
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## 1 2 3 4 5 6 7 8
## -0.08026 -0.13343 0.05998 -0.11507 0.27359 0.08368 0.02581 -0.21062
## 9 10 11 12 13
## 0.08010 0.09837 0.08247 -0.14182 -0.02281
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -7.642e+00 3.800e+00 -2.011 0.1005
## total_visit_hours_per_capita 1.382e-01 1.020e-01 1.355 0.2335
## percent_under_125000 2.136e-02 1.015e-02 2.104 0.0893 .
## avg_household_size -4.023e-01 1.196e+00 -0.336 0.7502
## pop_density -1.974e+02 2.131e+02 -0.927 0.3967
## `percent more than 1 occupant` 1.276e-01 1.504e-01 0.848 0.4350
## `percent more than 1 unit` -5.441e-03 2.325e-02 -0.234 0.8243
## avg_median_age 1.748e-01 1.169e-01 1.495 0.1951
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.2057 on 5 degrees of freedom
## Multiple R-squared: 0.7314, Adjusted R-squared: 0.3554
## F-statistic: 1.945 on 7 and 5 DF, p-value: 0.2407
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.156e-04 -9.510e-05 -7.396e-05 1.296e-04 2.787e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0002770 0.0001346 2.058 0.0641 .
## total_weighted_visit_hours_per_capita -0.0003220 0.0045431 -0.071 0.9448
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001675 on 11 degrees of freedom
## Multiple R-squared: 0.0004564, Adjusted R-squared: -0.09041
## F-statistic: 0.005023 on 1 and 11 DF, p-value: 0.9448
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## 1 2 3 4 5 6 7
## -4.674e-05 -6.248e-05 6.544e-05 -4.468e-05 1.738e-04 -9.257e-07 -3.341e-05
## 8 9 10 11 12 13
## -3.316e-06 3.253e-05 2.177e-06 7.031e-05 -7.709e-05 -7.567e-05
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -6.256e-03 2.485e-03 -2.517 0.0533 .
## total_weighted_visit_hours_per_capita 5.335e-03 4.420e-03 1.207 0.2814
## percent_under_125000 1.858e-05 5.886e-06 3.156 0.0252 *
## avg_household_size -6.425e-04 6.493e-04 -0.990 0.3678
## pop_density -2.119e-01 1.202e-01 -1.763 0.1382
## `percent more than 1 occupant` 1.456e-04 8.998e-05 1.618 0.1667
## `percent more than 1 unit` -6.941e-06 1.293e-05 -0.537 0.6143
## avg_median_age 1.655e-04 7.552e-05 2.191 0.0800 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001108 on 5 degrees of freedom
## Multiple R-squared: 0.8011, Adjusted R-squared: 0.5226
## F-statistic: 2.877 on 7 and 5 DF, p-value: 0.1313
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.32593 -0.17202 -0.03038 0.16957 0.42589
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.6549 0.2144 3.054 0.011 *
## total_weighted_visit_hours_per_capita -1.8092 7.2377 -0.250 0.807
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.2668 on 11 degrees of freedom
## Multiple R-squared: 0.005648, Adjusted R-squared: -0.08475
## F-statistic: 0.06248 on 1 and 11 DF, p-value: 0.8072
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## 1 2 3 4 5 6 7 8
## -0.05417 -0.08844 0.04014 -0.05251 0.37657 0.02411 -0.03378 -0.14716
## 9 10 11 12 13
## 0.09647 0.03088 0.16098 -0.23076 -0.12234
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -6.645e+00 5.352e+00 -1.242 0.269
## total_weighted_visit_hours_per_capita 2.652e+00 9.518e+00 0.279 0.792
## percent_under_125000 2.111e-02 1.268e-02 1.665 0.157
## avg_household_size 1.345e-01 1.398e+00 0.096 0.927
## pop_density -1.534e+02 2.588e+02 -0.593 0.579
## `percent more than 1 occupant` 6.735e-02 1.938e-01 0.348 0.742
## `percent more than 1 unit` 3.178e-03 2.784e-02 0.114 0.914
## avg_median_age 1.279e-01 1.626e-01 0.787 0.467
##
## Residual standard error: 0.2386 on 5 degrees of freedom
## Multiple R-squared: 0.6384, Adjusted R-squared: 0.1323
## F-statistic: 1.261 on 7 and 5 DF, p-value: 0.4129
##
## [1] "Cases start date: 2020-04-06"
## [1] "Visits start date: 2020-03-23"
## [1] "Weighted visits (by area and other visitors):"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.536e-04 -1.404e-04 -4.263e-05 9.132e-05 4.390e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.560e-04 7.295e-05 2.138 0.0381 *
## total_weighted_visits_per_capita -2.982e-04 2.323e-03 -0.128 0.8985
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001572 on 44 degrees of freedom
## Multiple R-squared: 0.0003743, Adjusted R-squared: -0.02234
## F-statistic: 0.01648 on 1 and 44 DF, p-value: 0.8985
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.302e-04 -7.284e-05 -3.346e-05 6.370e-05 3.534e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.393e-04 6.775e-04 -0.206 0.8382
## total_weighted_visits_per_capita -1.995e-04 2.137e-03 -0.093 0.9261
## percent_under_125000 6.010e-06 2.308e-06 2.604 0.0131 *
## avg_household_size 6.725e-05 1.427e-04 0.471 0.6403
## pop_density -2.432e-02 1.252e-02 -1.943 0.0595 .
## `percent more than 1 occupant` -8.483e-07 1.056e-05 -0.080 0.9364
## `percent more than 1 unit` -1.006e-06 2.630e-06 -0.382 0.7043
## avg_median_age -4.186e-06 7.500e-06 -0.558 0.5801
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001268 on 38 degrees of freedom
## Multiple R-squared: 0.4383, Adjusted R-squared: 0.3348
## F-statistic: 4.236 on 7 and 38 DF, p-value: 0.001533
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.536e-04 -1.404e-04 -4.263e-05 9.132e-05 4.390e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.560e-04 7.295e-05 2.138 0.0381 *
## total_weighted_visits_per_capita -2.982e-04 2.323e-03 -0.128 0.8985
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001572 on 44 degrees of freedom
## Multiple R-squared: 0.0003743, Adjusted R-squared: -0.02234
## F-statistic: 0.01648 on 1 and 44 DF, p-value: 0.8985
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.302e-04 -7.284e-05 -3.346e-05 6.370e-05 3.534e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.393e-04 6.775e-04 -0.206 0.8382
## total_weighted_visits_per_capita -1.995e-04 2.137e-03 -0.093 0.9261
## percent_under_125000 6.010e-06 2.308e-06 2.604 0.0131 *
## avg_household_size 6.725e-05 1.427e-04 0.471 0.6403
## pop_density -2.432e-02 1.252e-02 -1.943 0.0595 .
## `percent more than 1 occupant` -8.483e-07 1.056e-05 -0.080 0.9364
## `percent more than 1 unit` -1.006e-06 2.630e-06 -0.382 0.7043
## avg_median_age -4.186e-06 7.500e-06 -0.558 0.5801
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001268 on 38 degrees of freedom
## Multiple R-squared: 0.4383, Adjusted R-squared: 0.3348
## F-statistic: 4.236 on 7 and 38 DF, p-value: 0.001533
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.37665 -0.26403 -0.07523 0.12001 0.69403
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.2060 0.1432 1.438 0.158
## total_weighted_visits_per_capita 3.0524 4.5621 0.669 0.507
##
## Residual standard error: 0.3086 on 44 degrees of freedom
## Multiple R-squared: 0.01007, Adjusted R-squared: -0.01243
## F-statistic: 0.4477 on 1 and 44 DF, p-value: 0.5069
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.39730 -0.17270 -0.05482 0.12133 0.76119
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.299071 1.509819 -1.523 0.136
## total_weighted_visits_per_capita 3.462338 4.761065 0.727 0.472
## percent_under_125000 0.005935 0.005144 1.154 0.256
## avg_household_size 0.524011 0.318088 1.647 0.108
## pop_density -13.986536 27.901020 -0.501 0.619
## `percent more than 1 occupant` -0.013507 0.023523 -0.574 0.569
## `percent more than 1 unit` 0.006448 0.005861 1.100 0.278
## avg_median_age 0.013590 0.016713 0.813 0.421
##
## Residual standard error: 0.2825 on 38 degrees of freedom
## Multiple R-squared: 0.2835, Adjusted R-squared: 0.1515
## F-statistic: 2.148 on 7 and 38 DF, p-value: 0.06158
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.759e-04 -1.166e-04 -5.198e-05 1.007e-04 4.288e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 7.481e-05 1.072e-04 0.698 0.489
## total_visit_hours_per_capita 1.159e-05 1.678e-05 0.691 0.493
##
## Residual standard error: 0.0001564 on 44 degrees of freedom
## Multiple R-squared: 0.01072, Adjusted R-squared: -0.01176
## F-statistic: 0.4768 on 1 and 44 DF, p-value: 0.4935
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.322e-04 -7.216e-05 -3.320e-05 6.526e-05 3.525e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.436e-04 6.760e-04 -0.212 0.8329
## total_visit_hours_per_capita -3.027e-07 1.424e-05 -0.021 0.9832
## percent_under_125000 5.971e-06 2.274e-06 2.625 0.0124 *
## avg_household_size 6.957e-05 1.406e-04 0.495 0.6237
## pop_density -2.460e-02 1.216e-02 -2.022 0.0502 .
## `percent more than 1 occupant` -9.907e-07 1.044e-05 -0.095 0.9249
## `percent more than 1 unit` -9.654e-07 2.601e-06 -0.371 0.7125
## avg_median_age -4.281e-06 7.474e-06 -0.573 0.5702
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001268 on 38 degrees of freedom
## Multiple R-squared: 0.4382, Adjusted R-squared: 0.3347
## F-statistic: 4.234 on 7 and 38 DF, p-value: 0.001538
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.759e-04 -1.166e-04 -5.198e-05 1.007e-04 4.288e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 7.481e-05 1.072e-04 0.698 0.489
## total_visit_hours_per_capita 1.159e-05 1.678e-05 0.691 0.493
##
## Residual standard error: 0.0001564 on 44 degrees of freedom
## Multiple R-squared: 0.01072, Adjusted R-squared: -0.01176
## F-statistic: 0.4768 on 1 and 44 DF, p-value: 0.4935
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.322e-04 -7.216e-05 -3.320e-05 6.526e-05 3.525e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.436e-04 6.760e-04 -0.212 0.8329
## total_visit_hours_per_capita -3.027e-07 1.424e-05 -0.021 0.9832
## percent_under_125000 5.971e-06 2.274e-06 2.625 0.0124 *
## avg_household_size 6.957e-05 1.406e-04 0.495 0.6237
## pop_density -2.460e-02 1.216e-02 -2.022 0.0502 .
## `percent more than 1 occupant` -9.907e-07 1.044e-05 -0.095 0.9249
## `percent more than 1 unit` -9.654e-07 2.601e-06 -0.371 0.7125
## avg_median_age -4.281e-06 7.474e-06 -0.573 0.5702
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001268 on 38 degrees of freedom
## Multiple R-squared: 0.4382, Adjusted R-squared: 0.3347
## F-statistic: 4.234 on 7 and 38 DF, p-value: 0.001538
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.36472 -0.21407 -0.09583 0.12393 0.70405
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.12691 0.21097 0.602 0.551
## total_visit_hours_per_capita 0.02725 0.03303 0.825 0.414
##
## Residual standard error: 0.3078 on 44 degrees of freedom
## Multiple R-squared: 0.01523, Adjusted R-squared: -0.007155
## F-statistic: 0.6803 on 1 and 44 DF, p-value: 0.4139
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.39445 -0.16385 -0.05397 0.10052 0.77713
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.223846 1.516337 -1.467 0.151
## total_visit_hours_per_capita 0.004136 0.031952 0.129 0.898
## percent_under_125000 0.006641 0.005102 1.302 0.201
## avg_household_size 0.483796 0.315455 1.534 0.133
## pop_density -9.189854 27.282866 -0.337 0.738
## `percent more than 1 occupant` -0.010981 0.023429 -0.469 0.642
## `percent more than 1 unit` 0.005754 0.005833 0.986 0.330
## avg_median_age 0.015328 0.016765 0.914 0.366
##
## Residual standard error: 0.2844 on 38 degrees of freedom
## Multiple R-squared: 0.2739, Adjusted R-squared: 0.1401
## F-statistic: 2.047 on 7 and 38 DF, p-value: 0.07397
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.656e-04 -1.297e-04 -3.991e-05 1.201e-04 4.383e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.740e-04 3.446e-05 5.050 8.19e-06
## total_weighted_visit_hours_per_capita -3.941e-04 3.771e-04 -1.045 0.302
##
## (Intercept) ***
## total_weighted_visit_hours_per_capita
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001553 on 44 degrees of freedom
## Multiple R-squared: 0.02422, Adjusted R-squared: 0.002048
## F-statistic: 1.092 on 1 and 44 DF, p-value: 0.3017
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.334e-04 -7.827e-05 -3.143e-05 6.544e-05 3.523e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.553e-04 6.795e-04 -0.229 0.8205
## total_weighted_visit_hours_per_capita 5.564e-05 3.542e-04 0.157 0.8760
## percent_under_125000 5.957e-06 2.256e-06 2.640 0.0120 *
## avg_household_size 7.002e-05 1.406e-04 0.498 0.6214
## pop_density -2.521e-02 1.277e-02 -1.975 0.0556 .
## `percent more than 1 occupant` -7.741e-07 1.052e-05 -0.074 0.9417
## `percent more than 1 unit` -9.428e-07 2.602e-06 -0.362 0.7192
## avg_median_age -4.155e-06 7.451e-06 -0.558 0.5803
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001268 on 38 degrees of freedom
## Multiple R-squared: 0.4385, Adjusted R-squared: 0.3351
## F-statistic: 4.24 on 7 and 38 DF, p-value: 0.001523
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.656e-04 -1.297e-04 -3.991e-05 1.201e-04 4.383e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.740e-04 3.446e-05 5.050 8.19e-06
## total_weighted_visit_hours_per_capita -3.941e-04 3.771e-04 -1.045 0.302
##
## (Intercept) ***
## total_weighted_visit_hours_per_capita
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001553 on 44 degrees of freedom
## Multiple R-squared: 0.02422, Adjusted R-squared: 0.002048
## F-statistic: 1.092 on 1 and 44 DF, p-value: 0.3017
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.334e-04 -7.827e-05 -3.143e-05 6.544e-05 3.523e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.553e-04 6.795e-04 -0.229 0.8205
## total_weighted_visit_hours_per_capita 5.564e-05 3.542e-04 0.157 0.8760
## percent_under_125000 5.957e-06 2.256e-06 2.640 0.0120 *
## avg_household_size 7.002e-05 1.406e-04 0.498 0.6214
## pop_density -2.521e-02 1.277e-02 -1.975 0.0556 .
## `percent more than 1 occupant` -7.741e-07 1.052e-05 -0.074 0.9417
## `percent more than 1 unit` -9.428e-07 2.602e-06 -0.362 0.7192
## avg_median_age -4.155e-06 7.451e-06 -0.558 0.5803
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001268 on 38 degrees of freedom
## Multiple R-squared: 0.4385, Adjusted R-squared: 0.3351
## F-statistic: 4.24 on 7 and 38 DF, p-value: 0.001523
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.31195 -0.25991 -0.08213 0.09587 0.68580
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.31875 0.06868 4.641 3.13e-05 ***
## total_weighted_visit_hours_per_capita -0.32071 0.75161 -0.427 0.672
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.3096 on 44 degrees of freedom
## Multiple R-squared: 0.004121, Adjusted R-squared: -0.01851
## F-statistic: 0.1821 on 1 and 44 DF, p-value: 0.6717
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.39981 -0.17495 -0.05238 0.10241 0.77974
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.300727 1.519857 -1.514 0.138
## total_weighted_visit_hours_per_capita 0.398898 0.792253 0.503 0.618
## percent_under_125000 0.006669 0.005048 1.321 0.194
## avg_household_size 0.487619 0.314537 1.550 0.129
## pop_density -13.546441 28.558902 -0.474 0.638
## `percent more than 1 occupant` -0.009123 0.023537 -0.388 0.700
## `percent more than 1 unit` 0.005964 0.005821 1.025 0.312
## avg_median_age 0.016716 0.016666 1.003 0.322
##
## Residual standard error: 0.2835 on 38 degrees of freedom
## Multiple R-squared: 0.2784, Adjusted R-squared: 0.1454
## F-statistic: 2.094 on 7 and 38 DF, p-value: 0.06796
##
## [1] "Weighted visits:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.800e-04 -1.277e-04 -4.814e-05 1.110e-04 3.599e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0001398 0.0001046 1.337 0.192
## total_weighted_visits_per_capita 0.0021005 0.0035522 0.591 0.559
##
## Residual standard error: 0.0001546 on 28 degrees of freedom
## Multiple R-squared: 0.01233, Adjusted R-squared: -0.02294
## F-statistic: 0.3497 on 1 and 28 DF, p-value: 0.559
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.036e-04 -7.940e-05 -1.301e-05 6.009e-05 2.883e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 8.719e-04 8.746e-04 0.997 0.3297
## total_weighted_visits_per_capita 7.152e-05 4.831e-03 0.015 0.9883
## percent_under_125000 5.274e-06 2.787e-06 1.893 0.0716 .
## avg_household_size -3.692e-05 2.112e-04 -0.175 0.8628
## pop_density -4.062e-02 2.764e-02 -1.470 0.1558
## `percent more than 1 occupant` 4.146e-07 1.781e-05 0.023 0.9816
## `percent more than 1 unit` -2.154e-06 3.480e-06 -0.619 0.5423
## avg_median_age -1.951e-05 1.122e-05 -1.739 0.0960 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001293 on 22 degrees of freedom
## Multiple R-squared: 0.4576, Adjusted R-squared: 0.2851
## F-statistic: 2.652 on 7 and 22 DF, p-value: 0.03776
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.35715 -0.18794 -0.05162 0.10485 0.62708
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.1081 0.1731 0.624 0.537
## total_weighted_visits_per_capita 9.2786 5.8800 1.578 0.126
##
## Residual standard error: 0.2559 on 28 degrees of freedom
## Multiple R-squared: 0.08167, Adjusted R-squared: 0.04887
## F-statistic: 2.49 on 1 and 28 DF, p-value: 0.1258
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.22077 -0.17105 -0.05686 0.09027 0.61066
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.291e+00 1.681e+00 0.768 0.450
## total_weighted_visits_per_capita 8.801e+00 9.284e+00 0.948 0.353
## percent_under_125000 7.881e-04 5.355e-03 0.147 0.884
## avg_household_size -2.069e-02 4.059e-01 -0.051 0.960
## pop_density -5.050e+01 5.310e+01 -0.951 0.352
## `percent more than 1 occupant` 9.953e-03 3.422e-02 0.291 0.774
## `percent more than 1 unit` -1.630e-03 6.688e-03 -0.244 0.810
## avg_median_age -2.828e-02 2.156e-02 -1.312 0.203
##
## Residual standard error: 0.2484 on 22 degrees of freedom
## Multiple R-squared: 0.3205, Adjusted R-squared: 0.1043
## F-statistic: 1.482 on 7 and 22 DF, p-value: 0.2248
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.734e-04 -1.203e-04 -4.831e-05 1.030e-04 3.746e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 8.735e-05 1.796e-04 0.486 0.630
## total_visit_hours_per_capita 1.767e-05 2.798e-05 0.631 0.533
##
## Residual standard error: 0.0001545 on 28 degrees of freedom
## Multiple R-squared: 0.01404, Adjusted R-squared: -0.02117
## F-statistic: 0.3987 on 1 and 28 DF, p-value: 0.5329
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.056e-04 -7.875e-05 -1.035e-05 5.933e-05 2.890e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 8.766e-04 8.743e-04 1.003 0.3269
## total_visit_hours_per_capita 4.427e-06 2.664e-05 0.166 0.8695
## percent_under_125000 5.305e-06 2.759e-06 1.923 0.0675 .
## avg_household_size -4.596e-05 2.178e-04 -0.211 0.8348
## pop_density -4.072e-02 2.407e-02 -1.692 0.1048
## `percent more than 1 occupant` 7.322e-07 1.777e-05 0.041 0.9675
## `percent more than 1 unit` -2.346e-06 3.665e-06 -0.640 0.5288
## avg_median_age -1.955e-05 1.112e-05 -1.759 0.0925 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001292 on 22 degrees of freedom
## Multiple R-squared: 0.4583, Adjusted R-squared: 0.286
## F-statistic: 2.659 on 7 and 22 DF, p-value: 0.03736
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.3067 -0.1843 -0.0933 0.1193 0.6131
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.02616 0.30103 -0.087 0.931
## total_visit_hours_per_capita 0.06267 0.04691 1.336 0.192
##
## Residual standard error: 0.259 on 28 degrees of freedom
## Multiple R-squared: 0.05993, Adjusted R-squared: 0.02635
## F-statistic: 1.785 on 1 and 28 DF, p-value: 0.1923
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.25324 -0.16173 -0.01086 0.08346 0.65042
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.356686 1.702017 0.797 0.434
## total_visit_hours_per_capita 0.029985 0.051860 0.578 0.569
## percent_under_125000 0.001700 0.005372 0.317 0.755
## avg_household_size -0.091000 0.424014 -0.215 0.832
## pop_density -27.635079 46.861797 -0.590 0.561
## `percent more than 1 occupant` 0.015486 0.034601 0.448 0.659
## `percent more than 1 unit` -0.002714 0.007136 -0.380 0.707
## avg_median_age -0.025932 0.021642 -1.198 0.244
##
## Residual standard error: 0.2515 on 22 degrees of freedom
## Multiple R-squared: 0.3033, Adjusted R-squared: 0.08167
## F-statistic: 1.368 on 7 and 22 DF, p-value: 0.2673
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.734e-04 -1.288e-04 -4.542e-05 1.140e-04 3.799e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.890e-04 8.894e-05 2.125 0.0426 *
## total_weighted_visit_hours_per_capita 1.927e-04 1.570e-03 0.123 0.9032
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001555 on 28 degrees of freedom
## Multiple R-squared: 0.0005381, Adjusted R-squared: -0.03516
## F-statistic: 0.01507 on 1 and 28 DF, p-value: 0.9032
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.092e-04 -6.594e-05 -1.224e-05 6.378e-05 2.745e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 9.136e-04 8.469e-04 1.079 0.2924
## total_weighted_visit_hours_per_capita 1.847e-03 1.512e-03 1.221 0.2349
## percent_under_125000 6.244e-06 2.782e-06 2.244 0.0352 *
## avg_household_size -9.135e-05 2.091e-04 -0.437 0.6665
## pop_density -5.472e-02 2.602e-02 -2.103 0.0472 *
## `percent more than 1 occupant` 3.486e-06 1.731e-05 0.201 0.8422
## `percent more than 1 unit` -3.320e-06 3.499e-06 -0.949 0.3530
## avg_median_age -1.938e-05 1.076e-05 -1.801 0.0855 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001251 on 22 degrees of freedom
## Multiple R-squared: 0.4921, Adjusted R-squared: 0.3305
## F-statistic: 3.045 on 7 and 22 DF, p-value: 0.02131
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.32325 -0.18232 -0.04562 0.08813 0.55544
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.1437 0.1458 0.985 0.333
## total_weighted_visit_hours_per_capita 4.2341 2.5737 1.645 0.111
##
## Residual standard error: 0.255 on 28 degrees of freedom
## Multiple R-squared: 0.08814, Adjusted R-squared: 0.05557
## F-statistic: 2.706 on 1 and 28 DF, p-value: 0.1111
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.32085 -0.11158 -0.02204 0.08802 0.60278
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.459818 1.562197 0.934 0.3602
## total_weighted_visit_hours_per_capita 5.937858 2.790102 2.128 0.0448 *
## percent_under_125000 0.004629 0.005132 0.902 0.3769
## avg_household_size -0.205015 0.385781 -0.531 0.6004
## pop_density -71.542170 48.005086 -1.490 0.1503
## `percent more than 1 occupant` 0.023311 0.031928 0.730 0.4730
## `percent more than 1 unit` -0.005159 0.006455 -0.799 0.4327
## avg_median_age -0.025156 0.019848 -1.267 0.2182
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.2308 on 22 degrees of freedom
## Multiple R-squared: 0.4135, Adjusted R-squared: 0.2269
## F-statistic: 2.216 on 7 and 22 DF, p-value: 0.07278
##
## [1] "Cases start date: 2020-04-13"
## [1] "Visits start date: 2020-03-30"
## [1] "Weighted visits (by area and other visitors):"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.744e-04 -1.238e-04 -9.208e-05 1.079e-04 1.136e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.811e-05 1.341e-04 -0.284 0.778
## total_weighted_visits_per_capita 7.384e-03 4.695e-03 1.573 0.123
##
## Residual standard error: 0.0002411 on 44 degrees of freedom
## Multiple R-squared: 0.05322, Adjusted R-squared: 0.03171
## F-statistic: 2.473 on 1 and 44 DF, p-value: 0.1229
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.302e-04 -1.025e-04 -2.740e-05 3.216e-05 9.911e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 7.590e-04 1.118e-03 0.679 0.5014
## total_weighted_visits_per_capita -4.491e-03 5.058e-03 -0.888 0.3802
## percent_under_125000 9.461e-06 3.981e-06 2.376 0.0226 *
## avg_household_size -3.541e-04 2.381e-04 -1.488 0.1451
## pop_density -2.336e-02 2.002e-02 -1.167 0.2506
## `percent more than 1 occupant` 3.614e-05 1.798e-05 2.010 0.0516 .
## `percent more than 1 unit` -8.086e-06 4.439e-06 -1.822 0.0764 .
## avg_median_age 1.596e-06 1.242e-05 0.128 0.8984
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002087 on 38 degrees of freedom
## Multiple R-squared: 0.3875, Adjusted R-squared: 0.2747
## F-statistic: 3.434 on 7 and 38 DF, p-value: 0.006065
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.744e-04 -1.238e-04 -9.208e-05 1.079e-04 1.136e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.811e-05 1.341e-04 -0.284 0.778
## total_weighted_visits_per_capita 7.384e-03 4.695e-03 1.573 0.123
##
## Residual standard error: 0.0002411 on 44 degrees of freedom
## Multiple R-squared: 0.05322, Adjusted R-squared: 0.03171
## F-statistic: 2.473 on 1 and 44 DF, p-value: 0.1229
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.302e-04 -1.025e-04 -2.740e-05 3.216e-05 9.911e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 7.590e-04 1.118e-03 0.679 0.5014
## total_weighted_visits_per_capita -4.491e-03 5.058e-03 -0.888 0.3802
## percent_under_125000 9.461e-06 3.981e-06 2.376 0.0226 *
## avg_household_size -3.541e-04 2.381e-04 -1.488 0.1451
## pop_density -2.336e-02 2.002e-02 -1.167 0.2506
## `percent more than 1 occupant` 3.614e-05 1.798e-05 2.010 0.0516 .
## `percent more than 1 unit` -8.086e-06 4.439e-06 -1.822 0.0764 .
## avg_median_age 1.596e-06 1.242e-05 0.128 0.8984
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002087 on 38 degrees of freedom
## Multiple R-squared: 0.3875, Adjusted R-squared: 0.2747
## F-statistic: 3.434 on 7 and 38 DF, p-value: 0.006065
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.29644 -0.15175 -0.05376 0.09482 0.68186
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0140 0.1281 0.109 0.913
## total_weighted_visits_per_capita 6.6734 4.4848 1.488 0.144
##
## Residual standard error: 0.2303 on 44 degrees of freedom
## Multiple R-squared: 0.04791, Adjusted R-squared: 0.02627
## F-statistic: 2.214 on 1 and 44 DF, p-value: 0.1439
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.31269 -0.08711 -0.03362 0.04719 0.62335
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.058335 0.988742 -0.059 0.95326
## total_weighted_visits_per_capita -6.604312 4.472044 -1.477 0.14797
## percent_under_125000 0.007981 0.003520 2.268 0.02912 *
## avg_household_size -0.276025 0.210467 -1.311 0.19756
## pop_density -2.474829 17.699266 -0.140 0.88954
## `percent more than 1 occupant` 0.043318 0.015896 2.725 0.00967 **
## `percent more than 1 unit` -0.005098 0.003925 -1.299 0.20175
## avg_median_age 0.016004 0.010979 1.458 0.15315
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1845 on 38 degrees of freedom
## Multiple R-squared: 0.4723, Adjusted R-squared: 0.3751
## F-statistic: 4.858 on 7 and 38 DF, p-value: 0.0005531
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.210e-04 -1.500e-04 -8.115e-05 6.413e-05 1.162e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.376e-04 1.935e-04 -0.711 0.481
## total_visit_hours_per_capita 7.082e-05 4.449e-05 1.592 0.119
##
## Residual standard error: 0.0002409 on 44 degrees of freedom
## Multiple R-squared: 0.05445, Adjusted R-squared: 0.03296
## F-statistic: 2.534 on 1 and 44 DF, p-value: 0.1186
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.069e-04 -1.011e-04 -3.662e-05 3.537e-05 9.870e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 5.605e-04 1.122e-03 0.500 0.6202
## total_visit_hours_per_capita -3.765e-05 4.911e-05 -0.767 0.4480
## percent_under_125000 9.296e-06 3.994e-06 2.327 0.0254 *
## avg_household_size -2.767e-04 2.348e-04 -1.178 0.2460
## pop_density -2.800e-02 2.083e-02 -1.345 0.1867
## `percent more than 1 occupant` 3.142e-05 1.720e-05 1.827 0.0755 .
## `percent more than 1 unit` -6.712e-06 4.307e-06 -1.559 0.1274
## avg_median_age 2.116e-06 1.271e-05 0.167 0.8686
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002092 on 38 degrees of freedom
## Multiple R-squared: 0.3843, Adjusted R-squared: 0.2709
## F-statistic: 3.388 on 7 and 38 DF, p-value: 0.006573
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.210e-04 -1.500e-04 -8.115e-05 6.413e-05 1.162e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.376e-04 1.935e-04 -0.711 0.481
## total_visit_hours_per_capita 7.082e-05 4.449e-05 1.592 0.119
##
## Residual standard error: 0.0002409 on 44 degrees of freedom
## Multiple R-squared: 0.05445, Adjusted R-squared: 0.03296
## F-statistic: 2.534 on 1 and 44 DF, p-value: 0.1186
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.069e-04 -1.011e-04 -3.662e-05 3.537e-05 9.870e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 5.605e-04 1.122e-03 0.500 0.6202
## total_visit_hours_per_capita -3.765e-05 4.911e-05 -0.767 0.4480
## percent_under_125000 9.296e-06 3.994e-06 2.327 0.0254 *
## avg_household_size -2.767e-04 2.348e-04 -1.178 0.2460
## pop_density -2.800e-02 2.083e-02 -1.345 0.1867
## `percent more than 1 occupant` 3.142e-05 1.720e-05 1.827 0.0755 .
## `percent more than 1 unit` -6.712e-06 4.307e-06 -1.559 0.1274
## avg_median_age 2.116e-06 1.271e-05 0.167 0.8686
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002092 on 38 degrees of freedom
## Multiple R-squared: 0.3843, Adjusted R-squared: 0.2709
## F-statistic: 3.388 on 7 and 38 DF, p-value: 0.006573
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.25577 -0.16791 -0.04329 0.04898 0.70632
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.11733 0.18328 -0.640 0.5254
## total_visit_hours_per_capita 0.07370 0.04214 1.749 0.0873 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.2282 on 44 degrees of freedom
## Multiple R-squared: 0.065, Adjusted R-squared: 0.04375
## F-statistic: 3.059 on 1 and 44 DF, p-value: 0.08727
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.26149 -0.10124 -0.03189 0.04033 0.62663
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.277242 1.012563 -0.274 0.7857
## total_visit_hours_per_capita -0.026152 0.044327 -0.590 0.5587
## percent_under_125000 0.006879 0.003606 1.908 0.0640 .
## avg_household_size -0.183812 0.211978 -0.867 0.3913
## pop_density -5.991990 18.798131 -0.319 0.7517
## `percent more than 1 occupant` 0.036323 0.015522 2.340 0.0246 *
## `percent more than 1 unit` -0.003322 0.003887 -0.855 0.3981
## avg_median_age 0.014647 0.011471 1.277 0.2094
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1888 on 38 degrees of freedom
## Multiple R-squared: 0.447, Adjusted R-squared: 0.3452
## F-statistic: 4.389 on 7 and 38 DF, p-value: 0.001189
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.853e-04 -1.578e-04 -9.835e-05 9.926e-05 1.156e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.961e-04 6.903e-05 2.841 0.00678 **
## total_weighted_visit_hours_per_capita -7.970e-04 1.513e-03 -0.527 0.60098
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000247 on 44 degrees of freedom
## Multiple R-squared: 0.006268, Adjusted R-squared: -0.01632
## F-statistic: 0.2775 on 1 and 44 DF, p-value: 0.601
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.031e-04 -1.077e-04 -3.387e-05 3.551e-05 9.985e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 6.672e-04 1.121e-03 0.595 0.5553
## total_weighted_visit_hours_per_capita -5.826e-04 1.338e-03 -0.435 0.6657
## percent_under_125000 8.348e-06 3.761e-06 2.220 0.0325 *
## avg_household_size -3.092e-04 2.335e-04 -1.325 0.1932
## pop_density -2.218e-02 2.048e-02 -1.083 0.2858
## `percent more than 1 occupant` 3.126e-05 1.729e-05 1.808 0.0785 .
## `percent more than 1 unit` -7.152e-06 4.319e-06 -1.656 0.1060
## avg_median_age -2.484e-07 1.229e-05 -0.020 0.9840
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002103 on 38 degrees of freedom
## Multiple R-squared: 0.3779, Adjusted R-squared: 0.2633
## F-statistic: 3.298 on 7 and 38 DF, p-value: 0.007718
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.853e-04 -1.578e-04 -9.835e-05 9.926e-05 1.156e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.961e-04 6.903e-05 2.841 0.00678 **
## total_weighted_visit_hours_per_capita -7.970e-04 1.513e-03 -0.527 0.60098
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000247 on 44 degrees of freedom
## Multiple R-squared: 0.006268, Adjusted R-squared: -0.01632
## F-statistic: 0.2775 on 1 and 44 DF, p-value: 0.601
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.031e-04 -1.077e-04 -3.387e-05 3.551e-05 9.985e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 6.672e-04 1.121e-03 0.595 0.5553
## total_weighted_visit_hours_per_capita -5.826e-04 1.338e-03 -0.435 0.6657
## percent_under_125000 8.348e-06 3.761e-06 2.220 0.0325 *
## avg_household_size -3.092e-04 2.335e-04 -1.325 0.1932
## pop_density -2.218e-02 2.048e-02 -1.083 0.2858
## `percent more than 1 occupant` 3.126e-05 1.729e-05 1.808 0.0785 .
## `percent more than 1 unit` -7.152e-06 4.319e-06 -1.656 0.1060
## avg_median_age -2.484e-07 1.229e-05 -0.020 0.9840
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002103 on 38 degrees of freedom
## Multiple R-squared: 0.3779, Adjusted R-squared: 0.2633
## F-statistic: 3.298 on 7 and 38 DF, p-value: 0.007718
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.21894 -0.18993 -0.04398 0.09694 0.69986
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.2303 0.0657 3.505 0.00106 **
## total_weighted_visit_hours_per_capita -0.8392 1.4400 -0.583 0.56301
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.2351 on 44 degrees of freedom
## Multiple R-squared: 0.00766, Adjusted R-squared: -0.01489
## F-statistic: 0.3396 on 1 and 44 DF, p-value: 0.563
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.27363 -0.09398 -0.02238 0.04063 0.63420
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.192309 1.003872 -0.192 0.8491
## total_weighted_visit_hours_per_capita -0.907069 1.197886 -0.757 0.4536
## percent_under_125000 0.006359 0.003367 1.888 0.0666 .
## avg_household_size -0.210455 0.209042 -1.007 0.3204
## pop_density -0.604251 18.341200 -0.033 0.9739
## `percent more than 1 occupant` 0.036133 0.015477 2.335 0.0250 *
## `percent more than 1 unit` -0.003735 0.003867 -0.966 0.3402
## avg_median_age 0.013324 0.011004 1.211 0.2334
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1883 on 38 degrees of freedom
## Multiple R-squared: 0.4503, Adjusted R-squared: 0.349
## F-statistic: 4.447 on 7 and 38 DF, p-value: 0.001081
##
## [1] "Weighted visits:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.799e-04 -1.454e-04 -6.539e-05 5.991e-05 1.063e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0002126 0.0001836 -1.158 0.2555
## total_weighted_visits_per_capita 0.0155568 0.0064319 2.419 0.0216 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002463 on 31 degrees of freedom
## Multiple R-squared: 0.1588, Adjusted R-squared: 0.1316
## F-statistic: 5.85 on 1 and 31 DF, p-value: 0.02164
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.760e-04 -1.107e-04 -5.147e-05 5.120e-05 8.421e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 7.211e-04 1.430e-03 0.504 0.618
## total_weighted_visits_per_capita 1.134e-02 1.056e-02 1.074 0.293
## percent_under_125000 6.925e-06 5.066e-06 1.367 0.184
## avg_household_size -4.353e-04 3.343e-04 -1.302 0.205
## pop_density -4.523e-02 3.327e-02 -1.360 0.186
## `percent more than 1 occupant` 3.396e-05 2.632e-05 1.291 0.209
## `percent more than 1 unit` -1.001e-05 5.910e-06 -1.693 0.103
## avg_median_age 5.611e-06 1.803e-05 0.311 0.758
##
## Residual standard error: 0.0002355 on 25 degrees of freedom
## Multiple R-squared: 0.3796, Adjusted R-squared: 0.2059
## F-statistic: 2.185 on 7 and 25 DF, p-value: 0.07092
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.25720 -0.12203 -0.05342 0.08143 0.60098
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.2431 0.1385 -1.756 0.089025 .
## total_weighted_visits_per_capita 17.8338 4.8515 3.676 0.000891 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1858 on 31 degrees of freedom
## Multiple R-squared: 0.3036, Adjusted R-squared: 0.2811
## F-statistic: 13.51 on 1 and 31 DF, p-value: 0.0008911
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.22481 -0.08521 -0.05338 0.04992 0.51964
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.115278 1.109917 0.104 0.918
## total_weighted_visits_per_capita 11.413257 8.200629 1.392 0.176
## percent_under_125000 0.004023 0.003933 1.023 0.316
## avg_household_size -0.247789 0.259575 -0.955 0.349
## pop_density -9.008398 25.830703 -0.349 0.730
## `percent more than 1 occupant` 0.028062 0.020432 1.373 0.182
## `percent more than 1 unit` -0.006821 0.004589 -1.486 0.150
## avg_median_age 0.008658 0.014003 0.618 0.542
##
## Residual standard error: 0.1829 on 25 degrees of freedom
## Multiple R-squared: 0.4558, Adjusted R-squared: 0.3035
## F-statistic: 2.992 on 7 and 25 DF, p-value: 0.02005
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.208e-04 -1.648e-04 -8.544e-05 7.733e-05 1.123e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.478e-04 3.438e-04 -0.430 0.67
## total_visit_hours_per_capita 8.255e-05 7.668e-05 1.077 0.29
##
## Residual standard error: 0.0002636 on 31 degrees of freedom
## Multiple R-squared: 0.03604, Adjusted R-squared: 0.004948
## F-statistic: 1.159 on 1 and 31 DF, p-value: 0.29
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.087e-04 -1.317e-04 -5.810e-05 4.504e-05 8.925e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 8.718e-04 1.461e-03 0.597 0.5560
## total_visit_hours_per_capita -5.484e-06 9.087e-05 -0.060 0.9524
## percent_under_125000 9.217e-06 4.938e-06 1.867 0.0737 .
## avg_household_size -4.524e-04 3.658e-04 -1.237 0.2277
## pop_density -3.580e-02 3.281e-02 -1.091 0.2857
## `percent more than 1 occupant` 4.009e-05 2.664e-05 1.505 0.1449
## `percent more than 1 unit` -1.025e-05 6.290e-06 -1.630 0.1157
## avg_median_age 6.331e-06 1.846e-05 0.343 0.7345
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002409 on 25 degrees of freedom
## Multiple R-squared: 0.3511, Adjusted R-squared: 0.1694
## F-statistic: 1.933 on 7 and 25 DF, p-value: 0.1065
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.24124 -0.14384 -0.05353 0.09736 0.66777
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.12879 0.28203 -0.457 0.651
## total_visit_hours_per_capita 0.08563 0.06289 1.362 0.183
##
## Residual standard error: 0.2162 on 31 degrees of freedom
## Multiple R-squared: 0.05643, Adjusted R-squared: 0.02599
## F-statistic: 1.854 on 1 and 31 DF, p-value: 0.1831
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.23669 -0.09351 -0.02600 0.02722 0.57519
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.230156 1.147363 0.201 0.8426
## total_visit_hours_per_capita -0.029327 0.071371 -0.411 0.6846
## percent_under_125000 0.006698 0.003878 1.727 0.0965 .
## avg_household_size -0.230312 0.287262 -0.802 0.4303
## pop_density 0.359721 25.769663 0.014 0.9890
## `percent more than 1 occupant` 0.032976 0.020926 1.576 0.1276
## `percent more than 1 unit` -0.006603 0.004940 -1.337 0.1934
## avg_median_age 0.009644 0.014499 0.665 0.5120
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1892 on 25 degrees of freedom
## Multiple R-squared: 0.4176, Adjusted R-squared: 0.2545
## F-statistic: 2.561 on 7 and 25 DF, p-value: 0.03908
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.245e-04 -1.777e-04 -8.027e-05 8.696e-05 1.101e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.956e-04 9.596e-05 2.038 0.0502 .
## total_weighted_visit_hours_per_capita 6.532e-04 2.334e-03 0.280 0.7814
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002682 on 31 degrees of freedom
## Multiple R-squared: 0.00252, Adjusted R-squared: -0.02966
## F-statistic: 0.07833 on 1 and 31 DF, p-value: 0.7814
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.446e-04 -1.175e-04 -6.375e-05 3.918e-05 8.241e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 9.085e-04 1.425e-03 0.638 0.5294
## total_weighted_visit_hours_per_capita 2.957e-03 2.868e-03 1.031 0.3124
## percent_under_125000 8.923e-06 4.642e-06 1.922 0.0660 .
## avg_household_size -5.370e-04 3.423e-04 -1.569 0.1292
## pop_density -6.184e-02 4.089e-02 -1.512 0.1430
## `percent more than 1 occupant` 4.807e-05 2.673e-05 1.798 0.0842 .
## `percent more than 1 unit` -1.089e-05 5.934e-06 -1.836 0.0783 .
## avg_median_age 9.454e-06 1.832e-05 0.516 0.6103
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002359 on 25 degrees of freedom
## Multiple R-squared: 0.3775, Adjusted R-squared: 0.2032
## F-statistic: 2.166 on 7 and 25 DF, p-value: 0.07319
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.27419 -0.17521 -0.00735 0.14249 0.64224
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.19452 0.07878 2.469 0.0193 *
## total_weighted_visit_hours_per_capita 1.59395 1.91591 0.832 0.4118
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.2202 on 31 degrees of freedom
## Multiple R-squared: 0.02184, Adjusted R-squared: -0.009714
## F-statistic: 0.6921 on 1 and 31 DF, p-value: 0.4118
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.22115 -0.09736 -0.03393 0.02748 0.53029
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.291846 1.133416 0.257 0.7989
## total_weighted_visit_hours_per_capita 1.712544 2.281823 0.751 0.4600
## percent_under_125000 0.006124 0.003693 1.658 0.1098
## avg_household_size -0.317342 0.272320 -1.165 0.2549
## pop_density -14.582291 32.537002 -0.448 0.6579
## `percent more than 1 occupant` 0.038973 0.021269 1.832 0.0788 .
## `percent more than 1 unit` -0.007484 0.004721 -1.585 0.1255
## avg_median_age 0.011165 0.014574 0.766 0.4508
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1877 on 25 degrees of freedom
## Multiple R-squared: 0.4266, Adjusted R-squared: 0.266
## F-statistic: 2.657 on 7 and 25 DF, p-value: 0.03362
##
## [1] "Cases start date: 2020-04-20"
## [1] "Visits start date: 2020-04-06"
## [1] "Weighted visits (by area and other visitors):"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.160e-04 -9.447e-05 -5.786e-05 2.762e-05 1.071e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.557e-05 1.055e-04 -0.242 0.810
## total_weighted_visits_per_capita 5.824e-03 3.750e-03 1.553 0.128
##
## Residual standard error: 0.0002099 on 44 degrees of freedom
## Multiple R-squared: 0.05198, Adjusted R-squared: 0.03043
## F-statistic: 2.412 on 1 and 44 DF, p-value: 0.1275
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.907e-04 -8.055e-05 -2.815e-05 5.874e-05 8.984e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.401e-03 9.937e-04 1.410 0.1665
## total_weighted_visits_per_capita 3.087e-03 3.671e-03 0.841 0.4056
## percent_under_125000 6.351e-06 3.369e-06 1.885 0.0671 .
## avg_household_size -3.835e-04 2.069e-04 -1.853 0.0716 .
## pop_density -3.906e-02 1.784e-02 -2.190 0.0347 *
## `percent more than 1 occupant` 2.648e-05 1.534e-05 1.726 0.0925 .
## `percent more than 1 unit` -7.287e-06 3.809e-06 -1.913 0.0633 .
## avg_median_age -1.200e-05 1.085e-05 -1.106 0.2757
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001858 on 38 degrees of freedom
## Multiple R-squared: 0.3584, Adjusted R-squared: 0.2403
## F-statistic: 3.033 on 7 and 38 DF, p-value: 0.01236
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.160e-04 -9.447e-05 -5.786e-05 2.762e-05 1.071e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.557e-05 1.055e-04 -0.242 0.810
## total_weighted_visits_per_capita 5.824e-03 3.750e-03 1.553 0.128
##
## Residual standard error: 0.0002099 on 44 degrees of freedom
## Multiple R-squared: 0.05198, Adjusted R-squared: 0.03043
## F-statistic: 2.412 on 1 and 44 DF, p-value: 0.1275
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.907e-04 -8.055e-05 -2.815e-05 5.874e-05 8.984e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.401e-03 9.937e-04 1.410 0.1665
## total_weighted_visits_per_capita 3.087e-03 3.671e-03 0.841 0.4056
## percent_under_125000 6.351e-06 3.369e-06 1.885 0.0671 .
## avg_household_size -3.835e-04 2.069e-04 -1.853 0.0716 .
## pop_density -3.906e-02 1.784e-02 -2.190 0.0347 *
## `percent more than 1 occupant` 2.648e-05 1.534e-05 1.726 0.0925 .
## `percent more than 1 unit` -7.287e-06 3.809e-06 -1.913 0.0633 .
## avg_median_age -1.200e-05 1.085e-05 -1.106 0.2757
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001858 on 38 degrees of freedom
## Multiple R-squared: 0.3584, Adjusted R-squared: 0.2403
## F-statistic: 3.033 on 7 and 38 DF, p-value: 0.01236
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.259448 -0.079602 -0.005861 0.062764 0.297496
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.005197 0.057043 -0.091 0.9278
## total_weighted_visits_per_capita 4.512614 2.027683 2.226 0.0312 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1135 on 44 degrees of freedom
## Multiple R-squared: 0.1012, Adjusted R-squared: 0.08075
## F-statistic: 4.953 on 1 and 44 DF, p-value: 0.03122
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.19062 -0.04840 -0.01172 0.05170 0.26237
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 6.929e-02 5.552e-01 0.125 0.901
## total_weighted_visits_per_capita 2.603e+00 2.051e+00 1.269 0.212
## percent_under_125000 2.545e-03 1.882e-03 1.352 0.184
## avg_household_size -7.300e-02 1.156e-01 -0.631 0.532
## pop_density -1.659e+01 9.966e+00 -1.665 0.104
## `percent more than 1 occupant` 1.112e-02 8.573e-03 1.297 0.202
## `percent more than 1 unit` -6.594e-04 2.128e-03 -0.310 0.758
## avg_median_age 4.448e-04 6.060e-03 0.073 0.942
##
## Residual standard error: 0.1038 on 38 degrees of freedom
## Multiple R-squared: 0.3505, Adjusted R-squared: 0.2309
## F-statistic: 2.93 on 7 and 38 DF, p-value: 0.01488
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.946e-04 -9.456e-05 -5.231e-05 1.023e-05 1.104e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -5.248e-05 1.413e-04 -0.371 0.712
## total_visit_hours_per_capita 4.196e-05 3.151e-05 1.332 0.190
##
## Residual standard error: 0.0002113 on 44 degrees of freedom
## Multiple R-squared: 0.03875, Adjusted R-squared: 0.01691
## F-statistic: 1.774 on 1 and 44 DF, p-value: 0.1898
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.911e-04 -8.881e-05 -2.063e-05 5.461e-05 9.097e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.566e-03 1.009e-03 1.552 0.1288
## total_visit_hours_per_capita 1.789e-05 3.098e-05 0.578 0.5670
## percent_under_125000 6.403e-06 3.429e-06 1.868 0.0695 .
## avg_household_size -4.275e-04 2.126e-04 -2.010 0.0515 .
## pop_density -3.786e-02 1.794e-02 -2.111 0.0414 *
## `percent more than 1 occupant` 2.889e-05 1.547e-05 1.867 0.0696 .
## `percent more than 1 unit` -7.864e-06 3.917e-06 -2.008 0.0518 .
## avg_median_age -1.293e-05 1.116e-05 -1.159 0.2536
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001867 on 38 degrees of freedom
## Multiple R-squared: 0.3522, Adjusted R-squared: 0.2328
## F-statistic: 2.951 on 7 and 38 DF, p-value: 0.01431
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.946e-04 -9.456e-05 -5.231e-05 1.023e-05 1.104e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -5.248e-05 1.413e-04 -0.371 0.712
## total_visit_hours_per_capita 4.196e-05 3.151e-05 1.332 0.190
##
## Residual standard error: 0.0002113 on 44 degrees of freedom
## Multiple R-squared: 0.03875, Adjusted R-squared: 0.01691
## F-statistic: 1.774 on 1 and 44 DF, p-value: 0.1898
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.911e-04 -8.881e-05 -2.063e-05 5.461e-05 9.097e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.566e-03 1.009e-03 1.552 0.1288
## total_visit_hours_per_capita 1.789e-05 3.098e-05 0.578 0.5670
## percent_under_125000 6.403e-06 3.429e-06 1.868 0.0695 .
## avg_household_size -4.275e-04 2.126e-04 -2.010 0.0515 .
## pop_density -3.786e-02 1.794e-02 -2.111 0.0414 *
## `percent more than 1 occupant` 2.889e-05 1.547e-05 1.867 0.0696 .
## `percent more than 1 unit` -7.864e-06 3.917e-06 -2.008 0.0518 .
## avg_median_age -1.293e-05 1.116e-05 -1.159 0.2536
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001867 on 38 degrees of freedom
## Multiple R-squared: 0.3522, Adjusted R-squared: 0.2328
## F-statistic: 2.951 on 7 and 38 DF, p-value: 0.01431
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.17418 -0.06280 -0.01966 0.05412 0.32283
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.05146 0.07572 -0.68 0.5003
## total_visit_hours_per_capita 0.03832 0.01688 2.27 0.0282 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1133 on 44 degrees of freedom
## Multiple R-squared: 0.1048, Adjusted R-squared: 0.08447
## F-statistic: 5.152 on 1 and 44 DF, p-value: 0.02817
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.16946 -0.05469 -0.01044 0.04022 0.27071
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.328e-01 5.630e-01 0.414 0.682
## total_visit_hours_per_capita 1.977e-02 1.729e-02 1.143 0.260
## percent_under_125000 2.461e-03 1.914e-03 1.286 0.206
## avg_household_size -1.174e-01 1.187e-01 -0.989 0.329
## pop_density -1.543e+01 1.001e+01 -1.542 0.131
## `percent more than 1 occupant` 1.345e-02 8.637e-03 1.558 0.128
## `percent more than 1 unit` -1.274e-03 2.187e-03 -0.583 0.564
## avg_median_age -7.165e-04 6.227e-03 -0.115 0.909
##
## Residual standard error: 0.1042 on 38 degrees of freedom
## Multiple R-squared: 0.3455, Adjusted R-squared: 0.2249
## F-statistic: 2.866 on 7 and 38 DF, p-value: 0.0167
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.534e-04 -1.173e-04 -6.485e-05 2.662e-05 1.110e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.575e-04 5.172e-05 3.046 0.00391 **
## total_weighted_visit_hours_per_capita -5.368e-04 8.298e-04 -0.647 0.52106
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002145 on 44 degrees of freedom
## Multiple R-squared: 0.009421, Adjusted R-squared: -0.01309
## F-statistic: 0.4185 on 1 and 44 DF, p-value: 0.5211
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.999e-04 -8.842e-05 -2.249e-05 5.515e-05 9.083e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.433e-03 9.977e-04 1.437 0.1590
## total_weighted_visit_hours_per_capita 4.460e-04 8.053e-04 0.554 0.5829
## percent_under_125000 7.098e-06 3.345e-06 2.122 0.0404 *
## avg_household_size -3.925e-04 2.075e-04 -1.892 0.0662 .
## pop_density -4.067e-02 1.836e-02 -2.215 0.0328 *
## `percent more than 1 occupant` 2.777e-05 1.535e-05 1.809 0.0784 .
## `percent more than 1 unit` -7.451e-06 3.829e-06 -1.946 0.0591 .
## avg_median_age -1.175e-05 1.090e-05 -1.078 0.2879
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001868 on 38 degrees of freedom
## Multiple R-squared: 0.3517, Adjusted R-squared: 0.2323
## F-statistic: 2.945 on 7 and 38 DF, p-value: 0.01447
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.534e-04 -1.173e-04 -6.485e-05 2.662e-05 1.110e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.575e-04 5.172e-05 3.046 0.00391 **
## total_weighted_visit_hours_per_capita -5.368e-04 8.298e-04 -0.647 0.52106
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002145 on 44 degrees of freedom
## Multiple R-squared: 0.009421, Adjusted R-squared: -0.01309
## F-statistic: 0.4185 on 1 and 44 DF, p-value: 0.5211
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.999e-04 -8.842e-05 -2.249e-05 5.515e-05 9.083e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.433e-03 9.977e-04 1.437 0.1590
## total_weighted_visit_hours_per_capita 4.460e-04 8.053e-04 0.554 0.5829
## percent_under_125000 7.098e-06 3.345e-06 2.122 0.0404 *
## avg_household_size -3.925e-04 2.075e-04 -1.892 0.0662 .
## pop_density -4.067e-02 1.836e-02 -2.215 0.0328 *
## `percent more than 1 occupant` 2.777e-05 1.535e-05 1.809 0.0784 .
## `percent more than 1 unit` -7.451e-06 3.829e-06 -1.946 0.0591 .
## avg_median_age -1.175e-05 1.090e-05 -1.078 0.2879
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001868 on 38 degrees of freedom
## Multiple R-squared: 0.3517, Adjusted R-squared: 0.2323
## F-statistic: 2.945 on 7 and 38 DF, p-value: 0.01447
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.12643 -0.09733 -0.02305 0.06137 0.32664
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.12830 0.02876 4.461 5.59e-05 ***
## total_weighted_visit_hours_per_capita -0.24617 0.46152 -0.533 0.596
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1193 on 44 degrees of freedom
## Multiple R-squared: 0.006424, Adjusted R-squared: -0.01616
## F-statistic: 0.2845 on 1 and 44 DF, p-value: 0.5964
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.18161 -0.05197 -0.02178 0.04583 0.27318
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.114e-01 5.648e-01 0.197 0.845
## total_weighted_visit_hours_per_capita 1.948e-01 4.559e-01 0.427 0.672
## percent_under_125000 3.091e-03 1.894e-03 1.633 0.111
## avg_household_size -8.349e-02 1.175e-01 -0.711 0.482
## pop_density -1.705e+01 1.039e+01 -1.640 0.109
## `percent more than 1 occupant` 1.220e-02 8.691e-03 1.403 0.169
## `percent more than 1 unit` -7.687e-04 2.168e-03 -0.355 0.725
## avg_median_age 7.478e-04 6.168e-03 0.121 0.904
##
## Residual standard error: 0.1057 on 38 degrees of freedom
## Multiple R-squared: 0.3262, Adjusted R-squared: 0.2021
## F-statistic: 2.628 on 7 and 38 DF, p-value: 0.02566
##
## [1] "Weighted visits:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.846e-04 -1.128e-04 -4.541e-05 6.935e-05 9.820e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0001760 0.0001679 -1.048 0.3024
## total_weighted_visits_per_capita 0.0130533 0.0060444 2.160 0.0384 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002195 on 32 degrees of freedom
## Multiple R-squared: 0.1272, Adjusted R-squared: 0.09993
## F-statistic: 4.664 on 1 and 32 DF, p-value: 0.03841
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0002411 -0.0001159 -0.0000340 0.0001021 0.0006212
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.666e-03 1.111e-03 1.500 0.14576
## total_weighted_visits_per_capita 1.963e-02 6.969e-03 2.817 0.00914 **
## percent_under_125000 5.660e-06 3.672e-06 1.541 0.13532
## avg_household_size -5.956e-04 2.541e-04 -2.344 0.02702 *
## pop_density -8.802e-02 2.820e-02 -3.122 0.00437 **
## `percent more than 1 occupant` 3.369e-05 1.971e-05 1.710 0.09924 .
## `percent more than 1 unit` -8.736e-06 4.662e-06 -1.874 0.07221 .
## avg_median_age -9.654e-06 1.426e-05 -0.677 0.50430
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001863 on 26 degrees of freedom
## Multiple R-squared: 0.4887, Adjusted R-squared: 0.3511
## F-statistic: 3.55 on 7 and 26 DF, p-value: 0.008245
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.239575 -0.056776 -0.001016 0.068885 0.223811
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.11419 0.07142 -1.599 0.119683
## total_weighted_visits_per_capita 10.02549 2.57152 3.899 0.000465 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.09336 on 32 degrees of freedom
## Multiple R-squared: 0.322, Adjusted R-squared: 0.3008
## F-statistic: 15.2 on 1 and 32 DF, p-value: 0.0004652
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.21428 -0.03664 0.01470 0.03771 0.17126
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.584054 0.526294 1.110 0.27727
## total_weighted_visits_per_capita 12.018861 3.301728 3.640 0.00119 **
## percent_under_125000 0.001309 0.001740 0.753 0.45846
## avg_household_size -0.161299 0.120404 -1.340 0.19195
## pop_density -32.447989 13.358316 -2.429 0.02235 *
## `percent more than 1 occupant` 0.007151 0.009337 0.766 0.45060
## `percent more than 1 unit` -0.001196 0.002209 -0.542 0.59264
## avg_median_age -0.007760 0.006754 -1.149 0.26107
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.08828 on 26 degrees of freedom
## Multiple R-squared: 0.5075, Adjusted R-squared: 0.3749
## F-statistic: 3.828 on 7 and 26 DF, p-value: 0.005494
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.169e-04 -1.202e-04 -6.552e-05 3.132e-05 1.066e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -6.724e-05 2.630e-04 -0.256 0.800
## total_visit_hours_per_capita 5.386e-05 5.725e-05 0.941 0.354
##
## Residual standard error: 0.0002317 on 32 degrees of freedom
## Multiple R-squared: 0.02691, Adjusted R-squared: -0.003494
## F-statistic: 0.8851 on 1 and 32 DF, p-value: 0.3539
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.496e-04 -1.040e-04 -1.543e-05 4.090e-05 7.669e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.105e-03 1.240e-03 1.698 0.1015
## total_visit_hours_per_capita 7.909e-05 6.230e-05 1.270 0.2155
## percent_under_125000 6.348e-06 4.101e-06 1.548 0.1338
## avg_household_size -7.199e-04 3.042e-04 -2.366 0.0257 *
## pop_density -5.627e-02 2.790e-02 -2.017 0.0542 .
## `percent more than 1 occupant` 4.423e-05 2.277e-05 1.943 0.0630 .
## `percent more than 1 unit` -1.198e-05 5.523e-06 -2.169 0.0394 *
## avg_median_age -9.344e-06 1.581e-05 -0.591 0.5597
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002066 on 26 degrees of freedom
## Multiple R-squared: 0.3717, Adjusted R-squared: 0.2025
## F-statistic: 2.197 on 7 and 26 DF, p-value: 0.06811
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.19457 -0.06145 -0.01043 0.04238 0.28938
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.07371 0.12188 -0.605 0.5496
## total_visit_hours_per_capita 0.05084 0.02653 1.916 0.0643 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1074 on 32 degrees of freedom
## Multiple R-squared: 0.1029, Adjusted R-squared: 0.0749
## F-statistic: 3.672 on 1 and 32 DF, p-value: 0.06431
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.156803 -0.054575 -0.005653 0.044071 0.218144
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.840063 0.628448 1.337 0.193
## total_visit_hours_per_capita 0.043694 0.031570 1.384 0.178
## percent_under_125000 0.001795 0.002078 0.864 0.396
## avg_household_size -0.228660 0.154162 -1.483 0.150
## pop_density -12.644551 14.138590 -0.894 0.379
## `percent more than 1 occupant` 0.013111 0.011537 1.136 0.266
## `percent more than 1 unit` -0.003033 0.002799 -1.084 0.289
## avg_median_age -0.007517 0.008013 -0.938 0.357
##
## Residual standard error: 0.1047 on 26 degrees of freedom
## Multiple R-squared: 0.3075, Adjusted R-squared: 0.1211
## F-statistic: 1.65 on 7 and 26 DF, p-value: 0.1659
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.037e-04 -1.237e-04 -7.448e-05 5.743e-05 1.053e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.505e-04 7.584e-05 1.984 0.0558 .
## total_weighted_visit_hours_per_capita 6.553e-04 1.571e-03 0.417 0.6794
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002343 on 32 degrees of freedom
## Multiple R-squared: 0.005406, Adjusted R-squared: -0.02567
## F-statistic: 0.1739 on 1 and 32 DF, p-value: 0.6794
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.724e-04 -9.820e-05 -1.168e-05 4.989e-05 6.419e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.127e-03 1.134e-03 1.876 0.07194 .
## total_weighted_visit_hours_per_capita 4.420e-03 1.717e-03 2.575 0.01607 *
## percent_under_125000 8.441e-06 3.710e-06 2.275 0.03137 *
## avg_household_size -7.348e-04 2.665e-04 -2.757 0.01052 *
## pop_density -9.517e-02 3.073e-02 -3.097 0.00464 **
## `percent more than 1 occupant` 5.139e-05 2.095e-05 2.453 0.02119 *
## `percent more than 1 unit` -1.192e-05 4.840e-06 -2.463 0.02070 *
## avg_median_age -6.782e-06 1.455e-05 -0.466 0.64493
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.00019 on 26 degrees of freedom
## Multiple R-squared: 0.4683, Adjusted R-squared: 0.3251
## F-statistic: 3.271 on 7 and 26 DF, p-value: 0.01253
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.20835 -0.05968 -0.02193 0.03946 0.26898
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.10512 0.03507 2.998 0.00523 **
## total_weighted_visit_hours_per_capita 1.27127 0.72657 1.750 0.08976 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1083 on 32 degrees of freedom
## Multiple R-squared: 0.08731, Adjusted R-squared: 0.05879
## F-statistic: 3.061 on 1 and 32 DF, p-value: 0.08976
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.152426 -0.064910 -0.001499 0.026229 0.216913
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.843199 0.575985 1.464 0.1552
## total_weighted_visit_hours_per_capita 2.277997 0.872112 2.612 0.0148 *
## percent_under_125000 0.002915 0.001885 1.546 0.1341
## avg_household_size -0.230923 0.135386 -1.706 0.1000 .
## pop_density -32.466293 15.609841 -2.080 0.0475 *
## `percent more than 1 occupant` 0.016496 0.010643 1.550 0.1332
## `percent more than 1 unit` -0.002911 0.002459 -1.184 0.2472
## avg_median_age -0.006164 0.007390 -0.834 0.4119
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.09654 on 26 degrees of freedom
## Multiple R-squared: 0.4111, Adjusted R-squared: 0.2525
## F-statistic: 2.592 on 7 and 26 DF, p-value: 0.03605
##
## [1] "Cases start date: 2020-04-27"
## [1] "Visits start date: 2020-04-13"
## [1] "Weighted visits (by area and other visitors):"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.108e-04 -9.203e-05 -4.102e-05 2.020e-05 5.399e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -5.700e-05 8.281e-05 -0.688 0.4948
## total_weighted_visits_per_capita 5.105e-03 2.146e-03 2.379 0.0218 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001652 on 44 degrees of freedom
## Multiple R-squared: 0.1139, Adjusted R-squared: 0.09381
## F-statistic: 5.659 on 1 and 44 DF, p-value: 0.02178
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.968e-04 -9.040e-05 1.873e-06 4.186e-05 2.832e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.194e-04 6.553e-04 -0.640 0.5260
## total_weighted_visits_per_capita 3.024e-03 1.934e-03 1.564 0.1261
## percent_under_125000 1.946e-06 2.306e-06 0.844 0.4039
## avg_household_size -1.213e-05 1.378e-04 -0.088 0.9303
## pop_density -7.121e-03 1.237e-02 -0.576 0.5682
## `percent more than 1 occupant` 2.365e-05 1.024e-05 2.309 0.0265 *
## `percent more than 1 unit` -1.221e-07 2.561e-06 -0.048 0.9622
## avg_median_age 5.489e-06 7.462e-06 0.736 0.4665
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001229 on 38 degrees of freedom
## Multiple R-squared: 0.5763, Adjusted R-squared: 0.4982
## F-statistic: 7.383 on 7 and 38 DF, p-value: 1.339e-05
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.108e-04 -9.203e-05 -4.102e-05 2.020e-05 5.399e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -5.700e-05 8.281e-05 -0.688 0.4948
## total_weighted_visits_per_capita 5.105e-03 2.146e-03 2.379 0.0218 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001652 on 44 degrees of freedom
## Multiple R-squared: 0.1139, Adjusted R-squared: 0.09381
## F-statistic: 5.659 on 1 and 44 DF, p-value: 0.02178
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.968e-04 -9.040e-05 1.873e-06 4.186e-05 2.832e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.194e-04 6.553e-04 -0.640 0.5260
## total_weighted_visits_per_capita 3.024e-03 1.934e-03 1.564 0.1261
## percent_under_125000 1.946e-06 2.306e-06 0.844 0.4039
## avg_household_size -1.213e-05 1.378e-04 -0.088 0.9303
## pop_density -7.121e-03 1.237e-02 -0.576 0.5682
## `percent more than 1 occupant` 2.365e-05 1.024e-05 2.309 0.0265 *
## `percent more than 1 unit` -1.221e-07 2.561e-06 -0.048 0.9622
## avg_median_age 5.489e-06 7.462e-06 0.736 0.4665
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001229 on 38 degrees of freedom
## Multiple R-squared: 0.5763, Adjusted R-squared: 0.4982
## F-statistic: 7.383 on 7 and 38 DF, p-value: 1.339e-05
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.20990 -0.09116 -0.03263 0.04608 0.59307
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.05003 0.07667 -0.653 0.5174
## total_weighted_visits_per_capita 4.95543 1.98709 2.494 0.0165 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.153 on 44 degrees of freedom
## Multiple R-squared: 0.1238, Adjusted R-squared: 0.1039
## F-statistic: 6.219 on 1 and 44 DF, p-value: 0.01647
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.15722 -0.07364 -0.04264 0.02115 0.60423
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.6563136 0.8438378 -0.778 0.4415
## total_weighted_visits_per_capita 4.7786130 2.4904570 1.919 0.0625 .
## percent_under_125000 0.0004154 0.0029692 0.140 0.8895
## avg_household_size 0.1233010 0.1775102 0.695 0.4915
## pop_density -1.4898474 15.9294098 -0.094 0.9260
## `percent more than 1 occupant` 0.0003050 0.0131872 0.023 0.9817
## `percent more than 1 unit` 0.0017696 0.0032982 0.537 0.5947
## avg_median_age 0.0044619 0.0096100 0.464 0.6451
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1583 on 38 degrees of freedom
## Multiple R-squared: 0.1893, Adjusted R-squared: 0.04001
## F-statistic: 1.268 on 7 and 38 DF, p-value: 0.292
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.580e-04 -8.768e-05 -4.010e-05 2.505e-05 5.361e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.157e-04 1.012e-04 -1.143 0.2593
## total_visit_hours_per_capita 4.661e-05 1.855e-05 2.513 0.0157 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001641 on 44 degrees of freedom
## Multiple R-squared: 0.1255, Adjusted R-squared: 0.1056
## F-statistic: 6.313 on 1 and 44 DF, p-value: 0.01572
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.040e-04 -7.943e-05 -1.154e-05 5.386e-05 2.773e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.429e-04 6.692e-04 -0.662 0.5121
## total_visit_hours_per_capita 1.442e-05 1.589e-05 0.907 0.3701
## percent_under_125000 2.460e-06 2.336e-06 1.053 0.2990
## avg_household_size -3.327e-05 1.397e-04 -0.238 0.8130
## pop_density -1.762e-03 1.205e-02 -0.146 0.8845
## `percent more than 1 occupant` 2.502e-05 1.040e-05 2.405 0.0211 *
## `percent more than 1 unit` -5.794e-07 2.588e-06 -0.224 0.8240
## avg_median_age 7.540e-06 7.434e-06 1.014 0.3169
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001255 on 38 degrees of freedom
## Multiple R-squared: 0.5586, Adjusted R-squared: 0.4772
## F-statistic: 6.869 on 7 and 38 DF, p-value: 2.716e-05
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.580e-04 -8.768e-05 -4.010e-05 2.505e-05 5.361e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.157e-04 1.012e-04 -1.143 0.2593
## total_visit_hours_per_capita 4.661e-05 1.855e-05 2.513 0.0157 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001641 on 44 degrees of freedom
## Multiple R-squared: 0.1255, Adjusted R-squared: 0.1056
## F-statistic: 6.313 on 1 and 44 DF, p-value: 0.01572
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.040e-04 -7.943e-05 -1.154e-05 5.386e-05 2.773e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.429e-04 6.692e-04 -0.662 0.5121
## total_visit_hours_per_capita 1.442e-05 1.589e-05 0.907 0.3701
## percent_under_125000 2.460e-06 2.336e-06 1.053 0.2990
## avg_household_size -3.327e-05 1.397e-04 -0.238 0.8130
## pop_density -1.762e-03 1.205e-02 -0.146 0.8845
## `percent more than 1 occupant` 2.502e-05 1.040e-05 2.405 0.0211 *
## `percent more than 1 unit` -5.794e-07 2.588e-06 -0.224 0.8240
## avg_median_age 7.540e-06 7.434e-06 1.014 0.3169
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001255 on 38 degrees of freedom
## Multiple R-squared: 0.5586, Adjusted R-squared: 0.4772
## F-statistic: 6.869 on 7 and 38 DF, p-value: 2.716e-05
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.27795 -0.08189 -0.04214 0.04006 0.56878
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.15022 0.09069 -1.656 0.10474
## total_visit_hours_per_capita 0.05341 0.01662 3.213 0.00246 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1471 on 44 degrees of freedom
## Multiple R-squared: 0.19, Adjusted R-squared: 0.1716
## F-statistic: 10.32 on 1 and 44 DF, p-value: 0.002459
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.23620 -0.07680 -0.03947 0.03646 0.58068
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.7289674 0.8234560 -0.885 0.3816
## total_visit_hours_per_capita 0.0471865 0.0195549 2.413 0.0208 *
## percent_under_125000 0.0001731 0.0028750 0.060 0.9523
## avg_household_size 0.1077167 0.1718369 0.627 0.5345
## pop_density 6.1635294 14.8249062 0.416 0.6799
## `percent more than 1 occupant` 0.0004064 0.0127989 0.032 0.9748
## `percent more than 1 unit` 0.0014935 0.0031843 0.469 0.6417
## avg_median_age 0.0056752 0.0091473 0.620 0.5387
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1544 on 38 degrees of freedom
## Multiple R-squared: 0.2289, Adjusted R-squared: 0.08691
## F-statistic: 1.612 on 7 and 38 DF, p-value: 0.1618
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.709e-04 -1.206e-04 -4.459e-05 3.916e-05 5.501e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.128e-04 4.487e-05 2.515 0.0156 *
## total_weighted_visit_hours_per_capita 2.974e-04 5.920e-04 0.502 0.6180
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000175 on 44 degrees of freedom
## Multiple R-squared: 0.005701, Adjusted R-squared: -0.0169
## F-statistic: 0.2523 on 1 and 44 DF, p-value: 0.618
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.949e-04 -8.224e-05 -1.706e-05 4.882e-05 2.760e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.933e-04 6.693e-04 -0.737 0.4656
## total_weighted_visit_hours_per_capita 5.084e-04 4.736e-04 1.073 0.2898
## percent_under_125000 2.809e-06 2.238e-06 1.255 0.2172
## avg_household_size -1.845e-05 1.406e-04 -0.131 0.8963
## pop_density -5.543e-03 1.263e-02 -0.439 0.6632
## `percent more than 1 occupant` 2.536e-05 1.030e-05 2.461 0.0185 *
## `percent more than 1 unit` -2.998e-07 2.610e-06 -0.115 0.9092
## avg_median_age 8.283e-06 7.297e-06 1.135 0.2634
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000125 on 38 degrees of freedom
## Multiple R-squared: 0.5623, Adjusted R-squared: 0.4816
## F-statistic: 6.973 on 7 and 38 DF, p-value: 2.348e-05
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.709e-04 -1.206e-04 -4.459e-05 3.916e-05 5.501e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.128e-04 4.487e-05 2.515 0.0156 *
## total_weighted_visit_hours_per_capita 2.974e-04 5.920e-04 0.502 0.6180
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000175 on 44 degrees of freedom
## Multiple R-squared: 0.005701, Adjusted R-squared: -0.0169
## F-statistic: 0.2523 on 1 and 44 DF, p-value: 0.618
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.949e-04 -8.224e-05 -1.706e-05 4.882e-05 2.760e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.933e-04 6.693e-04 -0.737 0.4656
## total_weighted_visit_hours_per_capita 5.084e-04 4.736e-04 1.073 0.2898
## percent_under_125000 2.809e-06 2.238e-06 1.255 0.2172
## avg_household_size -1.845e-05 1.406e-04 -0.131 0.8963
## pop_density -5.543e-03 1.263e-02 -0.439 0.6632
## `percent more than 1 occupant` 2.536e-05 1.030e-05 2.461 0.0185 *
## `percent more than 1 unit` -2.998e-07 2.610e-06 -0.115 0.9092
## avg_median_age 8.283e-06 7.297e-06 1.135 0.2634
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000125 on 38 degrees of freedom
## Multiple R-squared: 0.5623, Adjusted R-squared: 0.4816
## F-statistic: 6.973 on 7 and 38 DF, p-value: 2.348e-05
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.28298 -0.10006 -0.01917 0.04123 0.57110
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.06282 0.03987 1.576 0.1222
## total_weighted_visit_hours_per_capita 1.12716 0.52604 2.143 0.0377 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1555 on 44 degrees of freedom
## Multiple R-squared: 0.09449, Adjusted R-squared: 0.07391
## F-statistic: 4.591 on 1 and 44 DF, p-value: 0.03771
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.28267 -0.06795 -0.03376 0.04832 0.59563
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.851454 0.831576 -1.024 0.3124
## total_weighted_visit_hours_per_capita 1.360892 0.588473 2.313 0.0263 *
## percent_under_125000 0.001478 0.002781 0.532 0.5982
## avg_household_size 0.141098 0.174657 0.808 0.4242
## pop_density -3.669692 15.687115 -0.234 0.8163
## `percent more than 1 occupant` 0.002039 0.012802 0.159 0.8743
## `percent more than 1 unit` 0.002085 0.003243 0.643 0.5242
## avg_median_age 0.008381 0.009066 0.924 0.3611
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1553 on 38 degrees of freedom
## Multiple R-squared: 0.2205, Adjusted R-squared: 0.07691
## F-statistic: 1.536 on 7 and 38 DF, p-value: 0.1849
##
## [1] "Weighted visits:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.409e-04 -8.808e-05 -5.227e-05 1.308e-05 5.093e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -8.635e-05 1.033e-04 -0.836 0.4094
## total_weighted_visits_per_capita 6.803e-03 2.725e-03 2.496 0.0179 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001702 on 32 degrees of freedom
## Multiple R-squared: 0.163, Adjusted R-squared: 0.1368
## F-statistic: 6.231 on 1 and 32 DF, p-value: 0.0179
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.087e-04 -8.185e-05 1.174e-05 5.450e-05 2.880e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.413e-04 7.436e-04 -0.459 0.650
## total_weighted_visits_per_capita 1.132e-03 2.971e-03 0.381 0.706
## percent_under_125000 2.250e-06 2.565e-06 0.877 0.388
## avg_household_size 1.458e-05 1.734e-04 0.084 0.934
## pop_density -7.720e-03 1.951e-02 -0.396 0.696
## `percent more than 1 occupant` 2.229e-05 1.335e-05 1.670 0.107
## `percent more than 1 unit` 1.335e-06 3.116e-06 0.428 0.672
## avg_median_age 1.509e-06 9.528e-06 0.158 0.875
##
## Residual standard error: 0.0001246 on 26 degrees of freedom
## Multiple R-squared: 0.6356, Adjusted R-squared: 0.5375
## F-statistic: 6.478 on 7 and 26 DF, p-value: 0.0001789
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.15232 -0.06393 -0.02263 0.04377 0.24975
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.01803 0.05847 -0.308 0.75982
## total_weighted_visits_per_capita 4.31239 1.54267 2.795 0.00869 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.09633 on 32 degrees of freedom
## Multiple R-squared: 0.1963, Adjusted R-squared: 0.1712
## F-statistic: 7.814 on 1 and 32 DF, p-value: 0.008691
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.10337 -0.04721 -0.01629 0.03501 0.25055
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.1966894 0.5024281 -0.391 0.699
## total_weighted_visits_per_capita 1.5690820 2.0075406 0.782 0.442
## percent_under_125000 -0.0003432 0.0017332 -0.198 0.845
## avg_household_size 0.0648623 0.1171485 0.554 0.585
## pop_density -0.5189842 13.1825054 -0.039 0.969
## `percent more than 1 occupant` 0.0061973 0.0090221 0.687 0.498
## `percent more than 1 unit` 0.0027070 0.0021056 1.286 0.210
## avg_median_age -0.0010842 0.0064378 -0.168 0.868
##
## Residual standard error: 0.08418 on 26 degrees of freedom
## Multiple R-squared: 0.5014, Adjusted R-squared: 0.3671
## F-statistic: 3.735 on 7 and 26 DF, p-value: 0.006289
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.942e-04 -9.924e-05 -3.502e-05 4.020e-05 5.058e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.342e-04 1.924e-04 -1.217 0.2324
## total_visit_hours_per_capita 7.262e-05 3.492e-05 2.079 0.0457 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001746 on 32 degrees of freedom
## Multiple R-squared: 0.119, Adjusted R-squared: 0.09151
## F-statistic: 4.324 on 1 and 32 DF, p-value: 0.04568
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.256e-04 -8.322e-05 3.001e-06 5.720e-05 2.954e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.373e-04 8.022e-04 -0.296 0.770
## total_visit_hours_per_capita -1.325e-05 3.186e-05 -0.416 0.681
## percent_under_125000 2.723e-06 2.443e-06 1.115 0.275
## avg_household_size 1.529e-05 1.724e-04 0.089 0.930
## pop_density -1.947e-03 1.716e-02 -0.113 0.911
## `percent more than 1 occupant` 2.236e-05 1.334e-05 1.676 0.106
## `percent more than 1 unit` 1.145e-06 3.169e-06 0.361 0.721
## avg_median_age 7.041e-07 9.723e-06 0.072 0.943
##
## Residual standard error: 0.0001245 on 26 degrees of freedom
## Multiple R-squared: 0.636, Adjusted R-squared: 0.538
## F-statistic: 6.489 on 7 and 26 DF, p-value: 0.0001767
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.11943 -0.06830 -0.03497 0.04362 0.25952
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.09182 0.11098 -0.827 0.4142
## total_visit_hours_per_capita 0.04237 0.02015 2.103 0.0434 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1007 on 32 degrees of freedom
## Multiple R-squared: 0.1215, Adjusted R-squared: 0.094
## F-statistic: 4.424 on 1 and 32 DF, p-value: 0.04339
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.11384 -0.04905 -0.01852 0.03255 0.24717
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.2330274 0.5486577 -0.425 0.675
## total_visit_hours_per_capita 0.0002677 0.0217916 0.012 0.990
## percent_under_125000 0.0001049 0.0016711 0.063 0.950
## avg_household_size 0.0835244 0.1179221 0.708 0.485
## pop_density 4.8734179 11.7370703 0.415 0.681
## `percent more than 1 occupant` 0.0050000 0.0091242 0.548 0.588
## `percent more than 1 unit` 0.0028006 0.0021676 1.292 0.208
## avg_median_age -0.0010520 0.0066498 -0.158 0.876
##
## Residual standard error: 0.08516 on 26 degrees of freedom
## Multiple R-squared: 0.4896, Adjusted R-squared: 0.3522
## F-statistic: 3.564 on 7 and 26 DF, p-value: 0.008086
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.092e-04 -1.002e-04 -5.690e-05 2.925e-05 5.147e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0001129 0.0000680 1.660 0.107
## total_weighted_visit_hours_per_capita 0.0009110 0.0011405 0.799 0.430
##
## Residual standard error: 0.0001842 on 32 degrees of freedom
## Multiple R-squared: 0.01955, Adjusted R-squared: -0.01109
## F-statistic: 0.638 on 1 and 32 DF, p-value: 0.4303
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.055e-04 -8.027e-05 1.690e-05 5.112e-05 2.847e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.110e-04 7.458e-04 -0.551 0.586
## total_weighted_visit_hours_per_capita 4.415e-04 9.294e-04 0.475 0.639
## percent_under_125000 2.587e-06 2.415e-06 1.071 0.294
## avg_household_size 3.490e-05 1.702e-04 0.205 0.839
## pop_density -8.348e-03 1.912e-02 -0.437 0.666
## `percent more than 1 occupant` 2.115e-05 1.316e-05 1.607 0.120
## `percent more than 1 unit` 1.678e-06 3.162e-06 0.531 0.600
## avg_median_age 1.611e-06 9.515e-06 0.169 0.867
##
## Residual standard error: 0.0001244 on 26 degrees of freedom
## Multiple R-squared: 0.6367, Adjusted R-squared: 0.5389
## F-statistic: 6.51 on 7 and 26 DF, p-value: 0.0001726
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.14550 -0.07084 -0.01338 0.02785 0.25064
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.10028 0.03892 2.577 0.0148 *
## total_weighted_visit_hours_per_capita 0.72880 0.65275 1.117 0.2725
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1054 on 32 degrees of freedom
## Multiple R-squared: 0.0375, Adjusted R-squared: 0.007417
## F-statistic: 1.247 on 1 and 32 DF, p-value: 0.2725
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.11073 -0.04684 -0.01873 0.03423 0.25444
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.2652771 0.5078063 -0.522 0.606
## total_weighted_visit_hours_per_capita 0.3395106 0.6328168 0.537 0.596
## percent_under_125000 0.0001171 0.0016444 0.071 0.944
## avg_household_size 0.0886854 0.1158999 0.765 0.451
## pop_density 1.4147834 13.0200350 0.109 0.914
## `percent more than 1 occupant` 0.0047921 0.0089596 0.535 0.597
## `percent more than 1 unit` 0.0030101 0.0021529 1.398 0.174
## avg_median_age -0.0009987 0.0064785 -0.154 0.879
##
## Residual standard error: 0.08469 on 26 degrees of freedom
## Multiple R-squared: 0.4952, Adjusted R-squared: 0.3593
## F-statistic: 3.644 on 7 and 26 DF, p-value: 0.00718
##
## [1] "Cases start date: 2020-05-04"
## [1] "Visits start date: 2020-04-20"
## [1] "Weighted visits (by area and other visitors):"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.695e-04 -1.087e-04 -4.533e-05 7.530e-05 7.081e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -9.606e-05 9.527e-05 -1.008 0.31883
## total_weighted_visits_per_capita 7.783e-03 2.876e-03 2.706 0.00965 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001943 on 44 degrees of freedom
## Multiple R-squared: 0.1427, Adjusted R-squared: 0.1232
## F-statistic: 7.324 on 1 and 44 DF, p-value: 0.009648
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.334e-04 -9.061e-05 6.589e-06 6.752e-05 3.128e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -7.042e-04 6.707e-04 -1.050 0.30034
## total_weighted_visits_per_capita 6.184e-03 2.184e-03 2.831 0.00738 **
## percent_under_125000 1.519e-06 2.356e-06 0.644 0.52316
## avg_household_size 3.873e-05 1.426e-04 0.272 0.78732
## pop_density -4.324e-03 1.202e-02 -0.360 0.72100
## `percent more than 1 occupant` 2.833e-05 1.024e-05 2.767 0.00868 **
## `percent more than 1 unit` 7.735e-07 2.689e-06 0.288 0.77517
## avg_median_age 6.232e-06 7.163e-06 0.870 0.38977
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001228 on 38 degrees of freedom
## Multiple R-squared: 0.704, Adjusted R-squared: 0.6495
## F-statistic: 12.91 on 7 and 38 DF, p-value: 2.326e-08
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.695e-04 -1.087e-04 -4.533e-05 7.530e-05 7.081e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -9.606e-05 9.527e-05 -1.008 0.31883
## total_weighted_visits_per_capita 7.783e-03 2.876e-03 2.706 0.00965 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001943 on 44 degrees of freedom
## Multiple R-squared: 0.1427, Adjusted R-squared: 0.1232
## F-statistic: 7.324 on 1 and 44 DF, p-value: 0.009648
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.334e-04 -9.061e-05 6.589e-06 6.752e-05 3.128e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -7.042e-04 6.707e-04 -1.050 0.30034
## total_weighted_visits_per_capita 6.184e-03 2.184e-03 2.831 0.00738 **
## percent_under_125000 1.519e-06 2.356e-06 0.644 0.52316
## avg_household_size 3.873e-05 1.426e-04 0.272 0.78732
## pop_density -4.324e-03 1.202e-02 -0.360 0.72100
## `percent more than 1 occupant` 2.833e-05 1.024e-05 2.767 0.00868 **
## `percent more than 1 unit` 7.735e-07 2.689e-06 0.288 0.77517
## avg_median_age 6.232e-06 7.163e-06 0.870 0.38977
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001228 on 38 degrees of freedom
## Multiple R-squared: 0.704, Adjusted R-squared: 0.6495
## F-statistic: 12.91 on 7 and 38 DF, p-value: 2.326e-08
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.182243 -0.070350 -0.007044 0.061709 0.263719
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.05401 0.04930 -1.095 0.27927
## total_weighted_visits_per_capita 5.02943 1.48825 3.379 0.00153 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1005 on 44 degrees of freedom
## Multiple R-squared: 0.2061, Adjusted R-squared: 0.188
## F-statistic: 11.42 on 1 and 44 DF, p-value: 0.001531
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.135525 -0.058025 -0.005026 0.064733 0.155710
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.823934 0.445209 -1.851 0.07200 .
## total_weighted_visits_per_capita 4.331127 1.449950 2.987 0.00491 **
## percent_under_125000 0.001001 0.001564 0.640 0.52603
## avg_household_size 0.107193 0.094633 1.133 0.26443
## pop_density 1.287854 7.978523 0.161 0.87262
## `percent more than 1 occupant` 0.005660 0.006796 0.833 0.41013
## `percent more than 1 unit` 0.002529 0.001785 1.417 0.16465
## avg_median_age 0.007406 0.004755 1.558 0.12762
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.08154 on 38 degrees of freedom
## Multiple R-squared: 0.549, Adjusted R-squared: 0.4659
## F-statistic: 6.608 on 7 and 38 DF, p-value: 3.926e-05
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.118e-04 -9.572e-05 -3.728e-05 4.419e-05 6.965e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.468e-04 1.201e-04 -2.055 0.04589 *
## total_visit_hours_per_capita 7.903e-05 2.330e-05 3.392 0.00147 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001868 on 44 degrees of freedom
## Multiple R-squared: 0.2073, Adjusted R-squared: 0.1893
## F-statistic: 11.51 on 1 and 44 DF, p-value: 0.001475
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.432e-04 -7.577e-05 -6.000e-07 6.781e-05 3.559e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.379e-04 7.022e-04 -0.624 0.5366
## total_visit_hours_per_capita 3.193e-05 1.959e-05 1.630 0.1114
## percent_under_125000 2.532e-06 2.496e-06 1.014 0.3168
## avg_household_size -2.669e-05 1.486e-04 -0.180 0.8584
## pop_density 3.364e-03 1.255e-02 0.268 0.7901
## `percent more than 1 occupant` 2.866e-05 1.108e-05 2.585 0.0137 *
## `percent more than 1 unit` -9.456e-07 2.742e-06 -0.345 0.7321
## avg_median_age 4.501e-06 7.728e-06 0.582 0.5637
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001307 on 38 degrees of freedom
## Multiple R-squared: 0.665, Adjusted R-squared: 0.6033
## F-statistic: 10.78 on 7 and 38 DF, p-value: 2.141e-07
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.118e-04 -9.572e-05 -3.728e-05 4.419e-05 6.965e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.468e-04 1.201e-04 -2.055 0.04589 *
## total_visit_hours_per_capita 7.903e-05 2.330e-05 3.392 0.00147 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001868 on 44 degrees of freedom
## Multiple R-squared: 0.2073, Adjusted R-squared: 0.1893
## F-statistic: 11.51 on 1 and 44 DF, p-value: 0.001475
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.432e-04 -7.577e-05 -6.000e-07 6.781e-05 3.559e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.379e-04 7.022e-04 -0.624 0.5366
## total_visit_hours_per_capita 3.193e-05 1.959e-05 1.630 0.1114
## percent_under_125000 2.532e-06 2.496e-06 1.014 0.3168
## avg_household_size -2.669e-05 1.486e-04 -0.180 0.8584
## pop_density 3.364e-03 1.255e-02 0.268 0.7901
## `percent more than 1 occupant` 2.866e-05 1.108e-05 2.585 0.0137 *
## `percent more than 1 unit` -9.456e-07 2.742e-06 -0.345 0.7321
## avg_median_age 4.501e-06 7.728e-06 0.582 0.5637
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001307 on 38 degrees of freedom
## Multiple R-squared: 0.665, Adjusted R-squared: 0.6033
## F-statistic: 10.78 on 7 and 38 DF, p-value: 2.141e-07
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.21063 -0.06785 -0.01424 0.05489 0.28379
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.15402 0.06045 -2.548 0.0144 *
## total_visit_hours_per_capita 0.05160 0.01173 4.400 6.79e-05 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.09403 on 44 degrees of freedom
## Multiple R-squared: 0.3056, Adjusted R-squared: 0.2898
## F-statistic: 19.36 on 1 and 44 DF, p-value: 6.786e-05
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.11763 -0.06783 -0.01191 0.05377 0.18889
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.701197 0.438550 -1.599 0.11813
## total_visit_hours_per_capita 0.036374 0.012234 2.973 0.00509 **
## percent_under_125000 0.001063 0.001559 0.682 0.49936
## avg_household_size 0.084822 0.092802 0.914 0.36647
## pop_density 7.099569 7.837317 0.906 0.37071
## `percent more than 1 occupant` 0.003933 0.006923 0.568 0.57327
## `percent more than 1 unit` 0.001745 0.001712 1.019 0.31459
## avg_median_age 0.005269 0.004826 1.092 0.28179
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.08162 on 38 degrees of freedom
## Multiple R-squared: 0.5482, Adjusted R-squared: 0.465
## F-statistic: 6.586 on 7 and 38 DF, p-value: 4.046e-05
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.035e-04 -1.272e-04 -6.542e-05 4.999e-05 7.870e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 9.407e-05 4.842e-05 1.943 0.0585 .
## total_weighted_visit_hours_per_capita 1.134e-03 7.702e-04 1.473 0.1479
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002048 on 44 degrees of freedom
## Multiple R-squared: 0.04699, Adjusted R-squared: 0.02533
## F-statistic: 2.17 on 1 and 44 DF, p-value: 0.1479
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.448e-04 -8.675e-05 1.268e-05 6.619e-05 3.484e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.359e-04 6.861e-04 -0.635 0.5290
## total_weighted_visit_hours_per_capita 1.153e-03 5.542e-04 2.079 0.0444 *
## percent_under_125000 2.856e-06 2.346e-06 1.218 0.2309
## avg_household_size -2.873e-05 1.442e-04 -0.199 0.8431
## pop_density -5.509e-03 1.286e-02 -0.428 0.6708
## `percent more than 1 occupant` 3.229e-05 1.054e-05 3.065 0.0040 **
## `percent more than 1 unit` -6.769e-07 2.690e-06 -0.252 0.8027
## avg_median_age 6.454e-06 7.468e-06 0.864 0.3929
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001281 on 38 degrees of freedom
## Multiple R-squared: 0.6782, Adjusted R-squared: 0.6189
## F-statistic: 11.44 on 7 and 38 DF, p-value: 1.044e-07
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.035e-04 -1.272e-04 -6.542e-05 4.999e-05 7.870e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 9.407e-05 4.842e-05 1.943 0.0585 .
## total_weighted_visit_hours_per_capita 1.134e-03 7.702e-04 1.473 0.1479
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002048 on 44 degrees of freedom
## Multiple R-squared: 0.04699, Adjusted R-squared: 0.02533
## F-statistic: 2.17 on 1 and 44 DF, p-value: 0.1479
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.448e-04 -8.675e-05 1.268e-05 6.619e-05 3.484e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.359e-04 6.861e-04 -0.635 0.5290
## total_weighted_visit_hours_per_capita 1.153e-03 5.542e-04 2.079 0.0444 *
## percent_under_125000 2.856e-06 2.346e-06 1.218 0.2309
## avg_household_size -2.873e-05 1.442e-04 -0.199 0.8431
## pop_density -5.509e-03 1.286e-02 -0.428 0.6708
## `percent more than 1 occupant` 3.229e-05 1.054e-05 3.065 0.0040 **
## `percent more than 1 unit` -6.769e-07 2.690e-06 -0.252 0.8027
## avg_median_age 6.454e-06 7.468e-06 0.864 0.3929
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001281 on 38 degrees of freedom
## Multiple R-squared: 0.6782, Adjusted R-squared: 0.6189
## F-statistic: 11.44 on 7 and 38 DF, p-value: 1.044e-07
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.14959 -0.08132 -0.02708 0.06336 0.28410
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.04674 0.02420 1.931 0.05990 .
## total_weighted_visit_hours_per_capita 1.18318 0.38496 3.074 0.00363 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1024 on 44 degrees of freedom
## Multiple R-squared: 0.1767, Adjusted R-squared: 0.158
## F-statistic: 9.447 on 1 and 44 DF, p-value: 0.003625
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.124149 -0.051223 -0.006926 0.058150 0.171827
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.681252 0.424669 -1.604 0.11695
## total_weighted_visit_hours_per_capita 1.170725 0.343025 3.413 0.00154 **
## percent_under_125000 0.001575 0.001452 1.085 0.28484
## avg_household_size 0.076150 0.089239 0.853 0.39883
## pop_density -2.033592 7.959139 -0.256 0.79971
## `percent more than 1 occupant` 0.008168 0.006521 1.253 0.21797
## `percent more than 1 unit` 0.001900 0.001665 1.141 0.26100
## avg_median_age 0.007513 0.004622 1.626 0.11230
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.07927 on 38 degrees of freedom
## Multiple R-squared: 0.5737, Adjusted R-squared: 0.4952
## F-statistic: 7.307 on 7 and 38 DF, p-value: 1.485e-05
##
## [1] "Weighted visits:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.613e-04 -1.082e-04 -4.127e-05 8.739e-05 6.154e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0001584 0.0001098 -1.442 0.15852
## total_weighted_visits_per_capita 0.0111207 0.0033416 3.328 0.00211 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001914 on 34 degrees of freedom
## Multiple R-squared: 0.2457, Adjusted R-squared: 0.2235
## F-statistic: 11.08 on 1 and 34 DF, p-value: 0.002111
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.341e-04 -6.505e-05 1.199e-05 7.028e-05 3.125e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.586e-04 7.914e-04 -0.579 0.5669
## total_weighted_visits_per_capita 6.110e-03 3.300e-03 1.851 0.0747 .
## percent_under_125000 1.295e-06 2.749e-06 0.471 0.6413
## avg_household_size 9.585e-05 1.775e-04 0.540 0.5934
## pop_density 2.362e-03 1.895e-02 0.125 0.9017
## `percent more than 1 occupant` 1.887e-05 1.395e-05 1.352 0.1871
## `percent more than 1 unit` 1.756e-06 3.287e-06 0.534 0.5973
## avg_median_age -3.198e-06 1.022e-05 -0.313 0.7567
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001312 on 28 degrees of freedom
## Multiple R-squared: 0.708, Adjusted R-squared: 0.635
## F-statistic: 9.697 on 7 and 28 DF, p-value: 4.381e-06
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.12550 -0.06968 -0.01034 0.06145 0.20818
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.09252 0.04918 -1.881 0.0685 .
## total_weighted_visits_per_capita 7.20205 1.49613 4.814 2.99e-05 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.08568 on 34 degrees of freedom
## Multiple R-squared: 0.4053, Adjusted R-squared: 0.3878
## F-statistic: 23.17 on 1 and 34 DF, p-value: 2.991e-05
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.124738 -0.044476 0.001414 0.045711 0.132004
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.132e-01 4.339e-01 -0.722 0.4763
## total_weighted_visits_per_capita 4.271e+00 1.809e+00 2.361 0.0254 *
## percent_under_125000 1.267e-05 1.507e-03 0.008 0.9934
## avg_household_size 1.137e-01 9.729e-02 1.169 0.2522
## pop_density 1.239e+01 1.039e+01 1.193 0.2428
## `percent more than 1 occupant` -1.874e-03 7.648e-03 -0.245 0.8082
## `percent more than 1 unit` 2.614e-03 1.802e-03 1.451 0.1580
## avg_median_age -3.426e-03 5.603e-03 -0.611 0.5459
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.07193 on 28 degrees of freedom
## Multiple R-squared: 0.6548, Adjusted R-squared: 0.5685
## F-statistic: 7.588 on 7 and 28 DF, p-value: 3.818e-05
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.329e-04 -1.010e-04 -4.728e-05 2.909e-05 6.467e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.004e-04 1.617e-04 -1.857 0.07193 .
## total_visit_hours_per_capita 9.464e-05 3.049e-05 3.104 0.00383 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001945 on 34 degrees of freedom
## Multiple R-squared: 0.2208, Adjusted R-squared: 0.1979
## F-statistic: 9.637 on 1 and 34 DF, p-value: 0.003829
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.474e-04 -7.631e-05 1.340e-06 8.609e-05 3.463e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.947e-04 8.446e-04 -0.230 0.819
## total_visit_hours_per_capita 1.166e-05 2.940e-05 0.396 0.695
## percent_under_125000 2.851e-06 2.839e-06 1.004 0.324
## avg_household_size 7.954e-05 1.874e-04 0.424 0.675
## pop_density 1.654e-02 1.840e-02 0.899 0.376
## `percent more than 1 occupant` 1.618e-05 1.466e-05 1.104 0.279
## `percent more than 1 unit` 4.942e-07 3.400e-06 0.145 0.885
## avg_median_age -7.113e-06 1.076e-05 -0.661 0.514
##
## Residual standard error: 0.0001386 on 28 degrees of freedom
## Multiple R-squared: 0.6741, Adjusted R-squared: 0.5926
## F-statistic: 8.272 on 7 and 28 DF, p-value: 1.826e-05
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.10604 -0.07502 -0.01243 0.05211 0.25885
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.17962 0.07428 -2.418 0.021114 *
## total_visit_hours_per_capita 0.06036 0.01401 4.310 0.000132 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.08934 on 34 degrees of freedom
## Multiple R-squared: 0.3533, Adjusted R-squared: 0.3343
## F-statistic: 18.57 on 1 and 34 DF, p-value: 0.0001322
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.125964 -0.051487 -0.006346 0.047299 0.159320
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.2389722 0.4650094 -0.514 0.6113
## total_visit_hours_per_capita 0.0218505 0.0161885 1.350 0.1879
## percent_under_125000 0.0006786 0.0015630 0.434 0.6675
## avg_household_size 0.1071738 0.1031888 1.039 0.3079
## pop_density 20.1442981 10.1306231 1.988 0.0566 .
## `percent more than 1 occupant` -0.0035261 0.0080687 -0.437 0.6655
## `percent more than 1 unit` 0.0019144 0.0018717 1.023 0.3152
## avg_median_age -0.0049007 0.0059249 -0.827 0.4152
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.07632 on 28 degrees of freedom
## Multiple R-squared: 0.6114, Adjusted R-squared: 0.5143
## F-statistic: 6.294 on 7 and 28 DF, p-value: 0.000172
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.527e-04 -1.480e-04 -7.227e-05 9.161e-05 7.444e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.336e-04 5.414e-05 2.467 0.0188 *
## total_weighted_visit_hours_per_capita 1.173e-03 8.253e-04 1.421 0.1645
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002141 on 34 degrees of freedom
## Multiple R-squared: 0.05605, Adjusted R-squared: 0.02829
## F-statistic: 2.019 on 1 and 34 DF, p-value: 0.1645
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.440e-04 -7.180e-05 -2.160e-06 7.356e-05 3.408e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.830e-04 8.107e-04 -0.349 0.730
## total_weighted_visit_hours_per_capita 7.869e-04 6.900e-04 1.140 0.264
## percent_under_125000 2.802e-06 2.662e-06 1.053 0.302
## avg_household_size 8.302e-05 1.836e-04 0.452 0.655
## pop_density 6.775e-03 2.021e-02 0.335 0.740
## `percent more than 1 occupant` 1.885e-05 1.458e-05 1.293 0.206
## `percent more than 1 unit` 9.822e-07 3.358e-06 0.292 0.772
## avg_median_age -4.841e-06 1.062e-05 -0.456 0.652
##
## Residual standard error: 0.0001359 on 28 degrees of freedom
## Multiple R-squared: 0.6868, Adjusted R-squared: 0.6085
## F-statistic: 8.77 on 7 and 28 DF, p-value: 1.091e-05
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.12165 -0.07657 -0.02150 0.07724 0.25368
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.07334 0.02446 2.999 0.00504 **
## total_weighted_visit_hours_per_capita 1.22995 0.37281 3.299 0.00228 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.09669 on 34 degrees of freedom
## Multiple R-squared: 0.2425, Adjusted R-squared: 0.2202
## F-statistic: 10.88 on 1 and 34 DF, p-value: 0.002281
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.12904 -0.04131 -0.01030 0.04559 0.14599
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.2374934 0.4391286 -0.541 0.5929
## total_weighted_visit_hours_per_capita 0.7532747 0.3737700 2.015 0.0536 .
## percent_under_125000 0.0009605 0.0014417 0.666 0.5107
## avg_household_size 0.1067383 0.0994328 1.073 0.2922
## pop_density 12.4796882 10.9447792 1.140 0.2638
## `percent more than 1 occupant` -0.0011424 0.0078959 -0.145 0.8860
## `percent more than 1 unit` 0.0022387 0.0018190 1.231 0.2286
## avg_median_age -0.0037104 0.0057542 -0.645 0.5243
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0736 on 28 degrees of freedom
## Multiple R-squared: 0.6386, Adjusted R-squared: 0.5482
## F-statistic: 7.067 on 7 and 28 DF, p-value: 6.877e-05
##
## [1] "Cases start date: 2020-05-11"
## [1] "Visits start date: 2020-04-27"
## [1] "Weighted visits (by area and other visitors):"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.391e-04 -1.190e-04 -4.047e-05 7.348e-05 8.448e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0001316 0.0001259 -1.045 0.3016
## total_weighted_visits_per_capita 0.0100565 0.0038167 2.635 0.0116 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002297 on 44 degrees of freedom
## Multiple R-squared: 0.1363, Adjusted R-squared: 0.1167
## F-statistic: 6.942 on 1 and 44 DF, p-value: 0.01158
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.301e-04 -7.737e-05 -3.445e-05 7.163e-05 4.820e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.809e-05 9.120e-04 -0.042 0.9669
## total_weighted_visits_per_capita 2.088e-03 3.695e-03 0.565 0.5754
## percent_under_125000 5.682e-06 3.502e-06 1.623 0.1130
## avg_household_size -1.185e-04 1.956e-04 -0.606 0.5482
## pop_density 9.374e-03 1.647e-02 0.569 0.5727
## `percent more than 1 occupant` 3.303e-05 1.419e-05 2.328 0.0253 *
## `percent more than 1 unit` -4.946e-06 3.801e-06 -1.301 0.2010
## avg_median_age 1.963e-06 9.962e-06 0.197 0.8448
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001691 on 38 degrees of freedom
## Multiple R-squared: 0.5956, Adjusted R-squared: 0.5211
## F-statistic: 7.994 on 7 and 38 DF, p-value: 5.958e-06
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.391e-04 -1.190e-04 -4.047e-05 7.348e-05 8.448e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0001316 0.0001259 -1.045 0.3016
## total_weighted_visits_per_capita 0.0100565 0.0038167 2.635 0.0116 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002297 on 44 degrees of freedom
## Multiple R-squared: 0.1363, Adjusted R-squared: 0.1167
## F-statistic: 6.942 on 1 and 44 DF, p-value: 0.01158
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.301e-04 -7.737e-05 -3.445e-05 7.163e-05 4.820e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.809e-05 9.120e-04 -0.042 0.9669
## total_weighted_visits_per_capita 2.088e-03 3.695e-03 0.565 0.5754
## percent_under_125000 5.682e-06 3.502e-06 1.623 0.1130
## avg_household_size -1.185e-04 1.956e-04 -0.606 0.5482
## pop_density 9.374e-03 1.647e-02 0.569 0.5727
## `percent more than 1 occupant` 3.303e-05 1.419e-05 2.328 0.0253 *
## `percent more than 1 unit` -4.946e-06 3.801e-06 -1.301 0.2010
## avg_median_age 1.963e-06 9.962e-06 0.197 0.8448
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001691 on 38 degrees of freedom
## Multiple R-squared: 0.5956, Adjusted R-squared: 0.5211
## F-statistic: 7.994 on 7 and 38 DF, p-value: 5.958e-06
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.13904 -0.11979 -0.02373 0.02936 0.57868
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.1048 0.0789 1.328 0.191
## total_weighted_visits_per_capita 0.7322 2.3917 0.306 0.761
##
## Residual standard error: 0.1439 on 44 degrees of freedom
## Multiple R-squared: 0.002126, Adjusted R-squared: -0.02055
## F-statistic: 0.09373 on 1 and 44 DF, p-value: 0.7609
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.24771 -0.07227 -0.01032 0.04714 0.38942
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.124e-01 6.419e-01 -0.331 0.74250
## total_weighted_visits_per_capita -3.205e+00 2.601e+00 -1.232 0.22547
## percent_under_125000 3.544e-03 2.465e-03 1.438 0.15859
## avg_household_size 6.966e-02 1.377e-01 0.506 0.61577
## pop_density 3.193e+01 1.159e+01 2.754 0.00899 **
## `percent more than 1 occupant` 6.339e-04 9.985e-03 0.063 0.94971
## `percent more than 1 unit` -1.674e-03 2.675e-03 -0.626 0.53512
## avg_median_age -5.582e-05 7.012e-03 -0.008 0.99369
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.119 on 38 degrees of freedom
## Multiple R-squared: 0.4105, Adjusted R-squared: 0.3019
## F-statistic: 3.78 on 7 and 38 DF, p-value: 0.003323
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.600e-04 -1.429e-04 -4.910e-05 5.596e-05 9.273e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.841e-04 2.028e-04 -1.401 0.1681
## total_visit_hours_per_capita 1.071e-04 4.533e-05 2.362 0.0227 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002328 on 44 degrees of freedom
## Multiple R-squared: 0.1125, Adjusted R-squared: 0.09237
## F-statistic: 5.58 on 1 and 44 DF, p-value: 0.02266
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.301e-04 -8.483e-05 -1.601e-05 4.007e-05 4.888e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.411e-05 8.967e-04 0.049 0.9610
## total_visit_hours_per_capita -3.634e-05 4.290e-05 -0.847 0.4022
## percent_under_125000 8.098e-06 3.423e-06 2.366 0.0232 *
## avg_household_size -1.474e-04 1.866e-04 -0.790 0.4346
## pop_density 7.746e-03 1.659e-02 0.467 0.6432
## `percent more than 1 occupant` 3.537e-05 1.386e-05 2.553 0.0148 *
## `percent more than 1 unit` -5.955e-06 3.451e-06 -1.726 0.0925 .
## avg_median_age 4.580e-06 1.004e-05 0.456 0.6508
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001682 on 38 degrees of freedom
## Multiple R-squared: 0.5997, Adjusted R-squared: 0.526
## F-statistic: 8.133 on 7 and 38 DF, p-value: 4.974e-06
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.600e-04 -1.429e-04 -4.910e-05 5.596e-05 9.273e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.841e-04 2.028e-04 -1.401 0.1681
## total_visit_hours_per_capita 1.071e-04 4.533e-05 2.362 0.0227 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002328 on 44 degrees of freedom
## Multiple R-squared: 0.1125, Adjusted R-squared: 0.09237
## F-statistic: 5.58 on 1 and 44 DF, p-value: 0.02266
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.301e-04 -8.483e-05 -1.601e-05 4.007e-05 4.888e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.411e-05 8.967e-04 0.049 0.9610
## total_visit_hours_per_capita -3.634e-05 4.290e-05 -0.847 0.4022
## percent_under_125000 8.098e-06 3.423e-06 2.366 0.0232 *
## avg_household_size -1.474e-04 1.866e-04 -0.790 0.4346
## pop_density 7.746e-03 1.659e-02 0.467 0.6432
## `percent more than 1 occupant` 3.537e-05 1.386e-05 2.553 0.0148 *
## `percent more than 1 unit` -5.955e-06 3.451e-06 -1.726 0.0925 .
## avg_median_age 4.580e-06 1.004e-05 0.456 0.6508
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001682 on 38 degrees of freedom
## Multiple R-squared: 0.5997, Adjusted R-squared: 0.526
## F-statistic: 8.133 on 7 and 38 DF, p-value: 4.974e-06
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.13896 -0.10241 -0.03023 0.03032 0.58982
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.05645 0.12500 0.452 0.654
## total_visit_hours_per_capita 0.01624 0.02794 0.581 0.564
##
## Residual standard error: 0.1435 on 44 degrees of freedom
## Multiple R-squared: 0.007614, Adjusted R-squared: -0.01494
## F-statistic: 0.3376 on 1 and 44 DF, p-value: 0.5642
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.23285 -0.06898 -0.01081 0.04505 0.39592
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.3311988 0.6435247 -0.515 0.6098
## total_visit_hours_per_capita -0.0195447 0.0307878 -0.635 0.5293
## percent_under_125000 0.0027475 0.0024564 1.119 0.2704
## avg_household_size 0.1192196 0.1339216 0.890 0.3789
## pop_density 27.6851079 11.9041060 2.326 0.0255 *
## `percent more than 1 occupant` -0.0014365 0.0099434 -0.144 0.8859
## `percent more than 1 unit` -0.0003885 0.0024765 -0.157 0.8762
## avg_median_age -0.0003235 0.0072039 -0.045 0.9644
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1207 on 38 degrees of freedom
## Multiple R-squared: 0.3934, Adjusted R-squared: 0.2816
## F-statistic: 3.52 on 7 and 38 DF, p-value: 0.005216
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.250e-04 -1.778e-04 -7.716e-05 8.631e-05 9.727e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.700e-04 7.525e-05 2.259 0.0289 *
## total_weighted_visit_hours_per_capita 4.685e-04 1.718e-03 0.273 0.7863
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002469 on 44 degrees of freedom
## Multiple R-squared: 0.001687, Adjusted R-squared: -0.021
## F-statistic: 0.07438 on 1 and 44 DF, p-value: 0.7863
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.328e-04 -8.412e-05 -2.523e-05 6.716e-05 4.956e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 7.354e-05 9.157e-04 0.080 0.9364
## total_weighted_visit_hours_per_capita -3.331e-04 1.444e-03 -0.231 0.8188
## percent_under_125000 6.899e-06 3.149e-06 2.191 0.0347 *
## avg_household_size -1.598e-04 1.930e-04 -0.828 0.4129
## pop_density 1.235e-02 1.729e-02 0.714 0.4797
## `percent more than 1 occupant` 3.475e-05 1.396e-05 2.490 0.0173 *
## `percent more than 1 unit` -6.053e-06 3.611e-06 -1.676 0.1019
## avg_median_age 2.745e-06 9.894e-06 0.277 0.7829
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001697 on 38 degrees of freedom
## Multiple R-squared: 0.5927, Adjusted R-squared: 0.5177
## F-statistic: 7.901 on 7 and 38 DF, p-value: 6.728e-06
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.250e-04 -1.778e-04 -7.716e-05 8.631e-05 9.727e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.700e-04 7.525e-05 2.259 0.0289 *
## total_weighted_visit_hours_per_capita 4.685e-04 1.718e-03 0.273 0.7863
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002469 on 44 degrees of freedom
## Multiple R-squared: 0.001687, Adjusted R-squared: -0.021
## F-statistic: 0.07438 on 1 and 44 DF, p-value: 0.7863
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.328e-04 -8.412e-05 -2.523e-05 6.716e-05 4.956e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 7.354e-05 9.157e-04 0.080 0.9364
## total_weighted_visit_hours_per_capita -3.331e-04 1.444e-03 -0.231 0.8188
## percent_under_125000 6.899e-06 3.149e-06 2.191 0.0347 *
## avg_household_size -1.598e-04 1.930e-04 -0.828 0.4129
## pop_density 1.235e-02 1.729e-02 0.714 0.4797
## `percent more than 1 occupant` 3.475e-05 1.396e-05 2.490 0.0173 *
## `percent more than 1 unit` -6.053e-06 3.611e-06 -1.676 0.1019
## avg_median_age 2.745e-06 9.894e-06 0.277 0.7829
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001697 on 38 degrees of freedom
## Multiple R-squared: 0.5927, Adjusted R-squared: 0.5177
## F-statistic: 7.901 on 7 and 38 DF, p-value: 6.728e-06
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.13874 -0.10021 -0.02435 0.03197 0.55692
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.14646 0.04379 3.344 0.00169 **
## total_weighted_visit_hours_per_capita -0.48073 0.99983 -0.481 0.63303
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1437 on 44 degrees of freedom
## Multiple R-squared: 0.005227, Adjusted R-squared: -0.01738
## F-statistic: 0.2312 on 1 and 44 DF, p-value: 0.633
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.16047 -0.06522 -0.00416 0.05115 0.39736
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.115420 0.614729 -0.188 0.8521
## total_weighted_visit_hours_per_capita -2.196896 0.969266 -2.267 0.0292 *
## percent_under_125000 0.003348 0.002114 1.584 0.1215
## avg_household_size 0.052496 0.129592 0.405 0.6877
## pop_density 38.323175 11.609715 3.301 0.0021 **
## `percent more than 1 occupant` -0.001071 0.009370 -0.114 0.9096
## `percent more than 1 unit` -0.001801 0.002424 -0.743 0.4621
## avg_median_age -0.001466 0.006642 -0.221 0.8265
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1139 on 38 degrees of freedom
## Multiple R-squared: 0.46, Adjusted R-squared: 0.3605
## F-statistic: 4.623 on 7 and 38 DF, p-value: 0.0008084
##
## [1] "Weighted visits:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.169e-04 -1.265e-04 -4.730e-05 6.445e-05 7.721e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0001746 0.0001523 -1.147 0.25947
## total_weighted_visits_per_capita 0.0126389 0.0045352 2.787 0.00865 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000234 on 34 degrees of freedom
## Multiple R-squared: 0.1859, Adjusted R-squared: 0.162
## F-statistic: 7.766 on 1 and 34 DF, p-value: 0.008646
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.381e-04 -1.124e-04 2.200e-06 9.537e-05 4.601e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.165e-04 1.130e-03 0.192 0.849
## total_weighted_visits_per_capita 3.061e-03 5.234e-03 0.585 0.563
## percent_under_125000 4.714e-06 4.302e-06 1.096 0.283
## avg_household_size -1.425e-04 2.559e-04 -0.557 0.582
## pop_density 1.766e-02 2.546e-02 0.694 0.494
## `percent more than 1 occupant` 3.232e-05 2.004e-05 1.613 0.118
## `percent more than 1 unit` -5.454e-06 4.791e-06 -1.138 0.265
## avg_median_age -1.583e-06 1.443e-05 -0.110 0.913
##
## Residual standard error: 0.0001888 on 28 degrees of freedom
## Multiple R-squared: 0.5635, Adjusted R-squared: 0.4544
## F-statistic: 5.164 on 7 and 28 DF, p-value: 0.0007309
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.20870 -0.06222 -0.02129 0.04624 0.31670
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.001264 0.069086 -0.018 0.9855
## total_weighted_visits_per_capita 4.486251 2.057623 2.180 0.0363 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1062 on 34 degrees of freedom
## Multiple R-squared: 0.1227, Adjusted R-squared: 0.09686
## F-statistic: 4.754 on 1 and 34 DF, p-value: 0.03625
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.15621 -0.06244 -0.02145 0.04739 0.32602
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.196354 0.637954 -0.308 0.761
## total_weighted_visits_per_capita 1.246942 2.955349 0.422 0.676
## percent_under_125000 0.002255 0.002429 0.928 0.361
## avg_household_size -0.032737 0.144476 -0.227 0.822
## pop_density 14.407536 14.377684 1.002 0.325
## `percent more than 1 occupant` 0.007850 0.011315 0.694 0.494
## `percent more than 1 unit` -0.001973 0.002705 -0.729 0.472
## avg_median_age 0.005873 0.008149 0.721 0.477
##
## Residual standard error: 0.1066 on 28 degrees of freedom
## Multiple R-squared: 0.2714, Adjusted R-squared: 0.08927
## F-statistic: 1.49 on 7 and 28 DF, p-value: 0.2113
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.418e-04 -1.502e-04 -6.809e-05 5.294e-05 8.920e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.026e-04 2.896e-04 -1.045 0.3035
## total_visit_hours_per_capita 1.181e-04 6.291e-05 1.877 0.0691 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002469 on 34 degrees of freedom
## Multiple R-squared: 0.09391, Adjusted R-squared: 0.06726
## F-statistic: 3.524 on 1 and 34 DF, p-value: 0.0691
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.355e-04 -1.119e-04 -1.366e-05 7.826e-05 4.812e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.540e-04 1.103e-03 0.411 0.684
## total_visit_hours_per_capita -5.763e-05 6.823e-05 -0.845 0.405
## percent_under_125000 8.168e-06 4.434e-06 1.842 0.076 .
## avg_household_size -1.442e-04 2.536e-04 -0.569 0.574
## pop_density 1.281e-02 2.654e-02 0.483 0.633
## `percent more than 1 occupant` 3.051e-05 1.984e-05 1.538 0.135
## `percent more than 1 unit` -5.886e-06 4.589e-06 -1.283 0.210
## avg_median_age -2.886e-06 1.410e-05 -0.205 0.839
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001876 on 28 degrees of freedom
## Multiple R-squared: 0.5692, Adjusted R-squared: 0.4615
## F-statistic: 5.284 on 7 and 28 DF, p-value: 0.0006227
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.13426 -0.06552 -0.02341 0.03415 0.32099
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.06707 0.12782 -0.525 0.603
## total_visit_hours_per_capita 0.04639 0.02777 1.671 0.104
##
## Residual standard error: 0.109 on 34 degrees of freedom
## Multiple R-squared: 0.07588, Adjusted R-squared: 0.0487
## F-statistic: 2.792 on 1 and 34 DF, p-value: 0.1039
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.151631 -0.072665 -0.009601 0.053763 0.311044
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.174478 0.625876 -0.279 0.782
## total_visit_hours_per_capita 0.020578 0.038705 0.532 0.599
## percent_under_125000 0.002029 0.002515 0.807 0.427
## avg_household_size -0.042131 0.143858 -0.293 0.772
## pop_density 19.606705 15.052958 1.303 0.203
## `percent more than 1 occupant` 0.007653 0.011254 0.680 0.502
## `percent more than 1 unit` -0.002419 0.002603 -0.929 0.361
## avg_median_age 0.005153 0.007997 0.644 0.525
##
## Residual standard error: 0.1064 on 28 degrees of freedom
## Multiple R-squared: 0.2741, Adjusted R-squared: 0.09264
## F-statistic: 1.511 on 7 and 28 DF, p-value: 0.2044
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.103e-04 -1.769e-04 -7.461e-05 7.327e-05 8.959e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0001163 0.0001035 1.124 0.269
## total_weighted_visit_hours_per_capita 0.0032986 0.0026139 1.262 0.216
##
## Residual standard error: 0.0002535 on 34 degrees of freedom
## Multiple R-squared: 0.04474, Adjusted R-squared: 0.01664
## F-statistic: 1.592 on 1 and 34 DF, p-value: 0.2156
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.337e-04 -1.207e-04 -4.660e-06 9.662e-05 4.793e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.839e-04 1.116e-03 0.344 0.733
## total_weighted_visit_hours_per_capita -6.746e-04 2.828e-03 -0.238 0.813
## percent_under_125000 6.397e-06 3.989e-06 1.604 0.120
## avg_household_size -1.535e-04 2.563e-04 -0.599 0.554
## pop_density 2.497e-02 2.701e-02 0.925 0.363
## `percent more than 1 occupant` 3.002e-05 2.067e-05 1.453 0.157
## `percent more than 1 unit` -6.300e-06 4.630e-06 -1.361 0.184
## avg_median_age -3.857e-06 1.458e-05 -0.265 0.793
##
## Residual standard error: 0.0001898 on 28 degrees of freedom
## Multiple R-squared: 0.5591, Adjusted R-squared: 0.4488
## F-statistic: 5.072 on 7 and 28 DF, p-value: 0.0008276
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.21906 -0.06019 -0.03169 0.03766 0.32035
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.09336 0.04528 2.062 0.0469 *
## total_weighted_visit_hours_per_capita 1.41031 1.14351 1.233 0.2259
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1109 on 34 degrees of freedom
## Multiple R-squared: 0.04282, Adjusted R-squared: 0.01467
## F-statistic: 1.521 on 1 and 34 DF, p-value: 0.2259
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.14713 -0.06834 -0.01662 0.05368 0.33658
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.131032 0.628793 -0.208 0.836
## total_weighted_visit_hours_per_capita -0.205821 1.593544 -0.129 0.898
## percent_under_125000 0.002903 0.002248 1.292 0.207
## avg_household_size -0.037448 0.144416 -0.259 0.797
## pop_density 17.101608 15.217818 1.124 0.271
## `percent more than 1 occupant` 0.007036 0.011643 0.604 0.551
## `percent more than 1 unit` -0.002312 0.002609 -0.886 0.383
## avg_median_age 0.005021 0.008213 0.611 0.546
##
## Residual standard error: 0.1069 on 28 degrees of freedom
## Multiple R-squared: 0.2672, Adjusted R-squared: 0.08403
## F-statistic: 1.459 on 7 and 28 DF, p-value: 0.2224
##
## [1] "Cases start date: 2020-05-18"
## [1] "Visits start date: 2020-05-04"
## [1] "Weighted visits (by area and other visitors):"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -6.603e-04 -1.277e-04 -6.005e-05 6.453e-05 1.789e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0002792 0.0002338 -1.195 0.2387
## total_weighted_visits_per_capita 0.0183187 0.0081232 2.255 0.0292 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003578 on 44 degrees of freedom
## Multiple R-squared: 0.1036, Adjusted R-squared: 0.08323
## F-statistic: 5.086 on 1 and 44 DF, p-value: 0.02915
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.398e-04 -1.626e-04 -2.000e-07 9.008e-05 1.156e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.359e-04 1.497e-03 -0.091 0.9281
## total_weighted_visits_per_capita 7.925e-03 7.314e-03 1.084 0.2854
## percent_under_125000 6.993e-06 4.958e-06 1.410 0.1666
## avg_household_size -2.621e-04 3.052e-04 -0.859 0.3959
## pop_density 1.235e-02 2.782e-02 0.444 0.6595
## `percent more than 1 occupant` 5.865e-05 2.238e-05 2.620 0.0126 *
## `percent more than 1 unit` -7.467e-06 5.838e-06 -1.279 0.2087
## avg_median_age 7.725e-06 1.596e-05 0.484 0.6311
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002715 on 38 degrees of freedom
## Multiple R-squared: 0.5544, Adjusted R-squared: 0.4723
## F-statistic: 6.753 on 7 and 38 DF, p-value: 3.195e-05
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -6.603e-04 -1.277e-04 -6.005e-05 6.453e-05 1.789e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0002792 0.0002338 -1.195 0.2387
## total_weighted_visits_per_capita 0.0183187 0.0081232 2.255 0.0292 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003578 on 44 degrees of freedom
## Multiple R-squared: 0.1036, Adjusted R-squared: 0.08323
## F-statistic: 5.086 on 1 and 44 DF, p-value: 0.02915
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.398e-04 -1.626e-04 -2.000e-07 9.008e-05 1.156e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.359e-04 1.497e-03 -0.091 0.9281
## total_weighted_visits_per_capita 7.925e-03 7.314e-03 1.084 0.2854
## percent_under_125000 6.993e-06 4.958e-06 1.410 0.1666
## avg_household_size -2.621e-04 3.052e-04 -0.859 0.3959
## pop_density 1.235e-02 2.782e-02 0.444 0.6595
## `percent more than 1 occupant` 5.865e-05 2.238e-05 2.620 0.0126 *
## `percent more than 1 unit` -7.467e-06 5.838e-06 -1.279 0.2087
## avg_median_age 7.725e-06 1.596e-05 0.484 0.6311
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002715 on 38 degrees of freedom
## Multiple R-squared: 0.5544, Adjusted R-squared: 0.4723
## F-statistic: 6.753 on 7 and 38 DF, p-value: 3.195e-05
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.20524 -0.07562 -0.02539 0.04218 0.57846
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0366 0.0886 0.413 0.682
## total_weighted_visits_per_capita 3.2883 3.0791 1.068 0.291
##
## Residual standard error: 0.1356 on 44 degrees of freedom
## Multiple R-squared: 0.02527, Adjusted R-squared: 0.003113
## F-statistic: 1.141 on 1 and 44 DF, p-value: 0.2914
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.16839 -0.07333 -0.01831 0.03230 0.56600
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.345224 0.737076 0.468 0.642
## total_weighted_visits_per_capita -0.551343 3.600639 -0.153 0.879
## percent_under_125000 0.002754 0.002441 1.128 0.266
## avg_household_size -0.045411 0.150240 -0.302 0.764
## pop_density 6.881960 13.693748 0.503 0.618
## `percent more than 1 occupant` 0.004013 0.011018 0.364 0.718
## `percent more than 1 unit` -0.002190 0.002874 -0.762 0.451
## avg_median_age -0.005336 0.007856 -0.679 0.501
##
## Residual standard error: 0.1336 on 38 degrees of freedom
## Multiple R-squared: 0.1827, Adjusted R-squared: 0.03215
## F-statistic: 1.214 on 7 and 38 DF, p-value: 0.3193
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.218e-04 -1.991e-04 -1.239e-04 4.317e-05 1.853e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.767e-04 3.042e-04 -0.910 0.3679
## total_visit_hours_per_capita 1.465e-04 8.582e-05 1.707 0.0949 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000366 on 44 degrees of freedom
## Multiple R-squared: 0.06211, Adjusted R-squared: 0.04079
## F-statistic: 2.914 on 1 and 44 DF, p-value: 0.09488
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.530e-04 -1.135e-04 -5.675e-05 6.790e-05 1.154e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.904e-04 1.415e-03 0.135 0.8936
## total_visit_hours_per_capita -1.447e-04 8.321e-05 -1.739 0.0900 .
## percent_under_125000 1.123e-05 5.033e-06 2.232 0.0316 *
## avg_household_size -1.717e-04 3.057e-04 -0.562 0.5776
## pop_density 2.056e-02 2.548e-02 0.807 0.4249
## `percent more than 1 occupant` 5.507e-05 2.203e-05 2.500 0.0169 *
## `percent more than 1 unit` -8.372e-06 5.467e-06 -1.531 0.1340
## avg_median_age 5.620e-06 1.547e-05 0.363 0.7183
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002653 on 38 degrees of freedom
## Multiple R-squared: 0.5745, Adjusted R-squared: 0.4961
## F-statistic: 7.329 on 7 and 38 DF, p-value: 1.441e-05
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.218e-04 -1.991e-04 -1.239e-04 4.317e-05 1.853e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.767e-04 3.042e-04 -0.910 0.3679
## total_visit_hours_per_capita 1.465e-04 8.582e-05 1.707 0.0949 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000366 on 44 degrees of freedom
## Multiple R-squared: 0.06211, Adjusted R-squared: 0.04079
## F-statistic: 2.914 on 1 and 44 DF, p-value: 0.09488
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.530e-04 -1.135e-04 -5.675e-05 6.790e-05 1.154e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.904e-04 1.415e-03 0.135 0.8936
## total_visit_hours_per_capita -1.447e-04 8.321e-05 -1.739 0.0900 .
## percent_under_125000 1.123e-05 5.033e-06 2.232 0.0316 *
## avg_household_size -1.717e-04 3.057e-04 -0.562 0.5776
## pop_density 2.056e-02 2.548e-02 0.807 0.4249
## `percent more than 1 occupant` 5.507e-05 2.203e-05 2.500 0.0169 *
## `percent more than 1 unit` -8.372e-06 5.467e-06 -1.531 0.1340
## avg_median_age 5.620e-06 1.547e-05 0.363 0.7183
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002653 on 38 degrees of freedom
## Multiple R-squared: 0.5745, Adjusted R-squared: 0.4961
## F-statistic: 7.329 on 7 and 38 DF, p-value: 1.441e-05
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.13660 -0.08773 -0.03226 0.04001 0.57420
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.08315 0.11397 0.730 0.470
## total_visit_hours_per_capita 0.01308 0.03215 0.407 0.686
##
## Residual standard error: 0.1371 on 44 degrees of freedom
## Multiple R-squared: 0.003748, Adjusted R-squared: -0.01889
## F-statistic: 0.1655 on 1 and 44 DF, p-value: 0.6861
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.15359 -0.07509 -0.01422 0.04097 0.53775
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.274562 0.689115 0.398 0.693
## total_visit_hours_per_capita -0.066329 0.040526 -1.637 0.110
## percent_under_125000 0.004060 0.002451 1.656 0.106
## avg_household_size 0.024560 0.148895 0.165 0.870
## pop_density 5.045140 12.411455 0.406 0.687
## `percent more than 1 occupant` 0.001379 0.010729 0.129 0.898
## `percent more than 1 unit` -0.001592 0.002663 -0.598 0.553
## avg_median_age -0.005134 0.007533 -0.682 0.500
##
## Residual standard error: 0.1292 on 38 degrees of freedom
## Multiple R-squared: 0.2361, Adjusted R-squared: 0.09532
## F-statistic: 1.677 on 7 and 38 DF, p-value: 0.1441
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.250e-04 -1.986e-04 -1.378e-04 4.826e-05 1.911e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.021e-04 9.982e-05 2.025 0.049 *
## total_weighted_visit_hours_per_capita 1.224e-03 3.147e-03 0.389 0.699
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003773 on 44 degrees of freedom
## Multiple R-squared: 0.003425, Adjusted R-squared: -0.01922
## F-statistic: 0.1512 on 1 and 44 DF, p-value: 0.6993
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.887e-04 -1.400e-04 -9.160e-06 7.128e-05 1.171e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.388e-04 1.472e-03 0.230 0.8192
## total_weighted_visit_hours_per_capita -1.562e-03 3.728e-03 -0.419 0.6777
## percent_under_125000 8.174e-06 4.895e-06 1.670 0.1031
## avg_household_size -3.017e-04 3.070e-04 -0.983 0.3319
## pop_density 3.193e-02 3.398e-02 0.940 0.3534
## `percent more than 1 occupant` 5.846e-05 2.314e-05 2.527 0.0158 *
## `percent more than 1 unit` -9.400e-06 5.636e-06 -1.668 0.1035
## avg_median_age 3.836e-06 1.653e-05 0.232 0.8177
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000275 on 38 degrees of freedom
## Multiple R-squared: 0.5427, Adjusted R-squared: 0.4585
## F-statistic: 6.443 on 7 and 38 DF, p-value: 4.972e-05
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.250e-04 -1.986e-04 -1.378e-04 4.826e-05 1.911e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.021e-04 9.982e-05 2.025 0.049 *
## total_weighted_visit_hours_per_capita 1.224e-03 3.147e-03 0.389 0.699
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003773 on 44 degrees of freedom
## Multiple R-squared: 0.003425, Adjusted R-squared: -0.01922
## F-statistic: 0.1512 on 1 and 44 DF, p-value: 0.6993
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.887e-04 -1.400e-04 -9.160e-06 7.128e-05 1.171e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.388e-04 1.472e-03 0.230 0.8192
## total_weighted_visit_hours_per_capita -1.562e-03 3.728e-03 -0.419 0.6777
## percent_under_125000 8.174e-06 4.895e-06 1.670 0.1031
## avg_household_size -3.017e-04 3.070e-04 -0.983 0.3319
## pop_density 3.193e-02 3.398e-02 0.940 0.3534
## `percent more than 1 occupant` 5.846e-05 2.314e-05 2.527 0.0158 *
## `percent more than 1 unit` -9.400e-06 5.636e-06 -1.668 0.1035
## avg_median_age 3.836e-06 1.653e-05 0.232 0.8177
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000275 on 38 degrees of freedom
## Multiple R-squared: 0.5427, Adjusted R-squared: 0.4585
## F-statistic: 6.443 on 7 and 38 DF, p-value: 4.972e-05
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.14487 -0.09048 -0.02307 0.04621 0.56494
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.1109 0.0362 3.064 0.00372 **
## total_weighted_visit_hours_per_capita 0.6777 1.1413 0.594 0.55572
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1368 on 44 degrees of freedom
## Multiple R-squared: 0.007949, Adjusted R-squared: -0.0146
## F-statistic: 0.3525 on 1 and 44 DF, p-value: 0.5557
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.19651 -0.07154 -0.02118 0.03402 0.55242
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.376559 0.707866 0.532 0.598
## total_weighted_visit_hours_per_capita -1.640002 1.792521 -0.915 0.366
## percent_under_125000 0.002645 0.002354 1.124 0.268
## avg_household_size -0.026414 0.147595 -0.179 0.859
## pop_density 15.565997 16.337714 0.953 0.347
## `percent more than 1 occupant` 0.001710 0.011125 0.154 0.879
## `percent more than 1 unit` -0.002073 0.002710 -0.765 0.449
## avg_median_age -0.006945 0.007947 -0.874 0.388
##
## Residual standard error: 0.1322 on 38 degrees of freedom
## Multiple R-squared: 0.1998, Adjusted R-squared: 0.05242
## F-statistic: 1.356 on 7 and 38 DF, p-value: 0.2521
##
## [1] "Weighted visits:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -7.628e-04 -1.517e-04 -3.580e-06 6.468e-05 1.560e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0008356 0.0003000 -2.785 0.008577 **
## total_weighted_visits_per_capita 0.0405619 0.0106816 3.797 0.000559 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003412 on 35 degrees of freedom
## Multiple R-squared: 0.2918, Adjusted R-squared: 0.2715
## F-statistic: 14.42 on 1 and 35 DF, p-value: 0.0005587
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.610e-04 -1.856e-04 -3.918e-05 1.458e-04 1.033e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.270e-04 1.622e-03 -0.078 0.93813
## total_weighted_visits_per_capita 3.249e-02 1.332e-02 2.439 0.02109 *
## percent_under_125000 8.161e-07 6.037e-06 0.135 0.89340
## avg_household_size -5.312e-04 3.656e-04 -1.453 0.15700
## pop_density 6.830e-04 3.454e-02 0.020 0.98436
## `percent more than 1 occupant` 8.350e-05 2.778e-05 3.006 0.00542 **
## `percent more than 1 unit` -9.554e-06 6.683e-06 -1.430 0.16354
## avg_median_age 1.863e-05 1.789e-05 1.041 0.30643
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002783 on 29 degrees of freedom
## Multiple R-squared: 0.6096, Adjusted R-squared: 0.5153
## F-statistic: 6.468 on 7 and 29 DF, p-value: 0.000123
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.190194 -0.052686 -0.008339 0.037136 0.186458
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.17378 0.07286 -2.385 0.0226 *
## total_weighted_visits_per_capita 11.42106 2.59386 4.403 9.58e-05 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.08285 on 35 degrees of freedom
## Multiple R-squared: 0.3565, Adjusted R-squared: 0.3381
## F-statistic: 19.39 on 1 and 35 DF, p-value: 9.585e-05
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.13099 -0.05790 -0.01717 0.04757 0.20436
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0205596 0.4991581 0.041 0.9674
## total_weighted_visits_per_capita 10.6122061 4.0991010 2.589 0.0149 *
## percent_under_125000 -0.0001854 0.0018576 -0.100 0.9212
## avg_household_size -0.0867866 0.1124962 -0.771 0.4467
## pop_density 5.2136924 10.6269590 0.491 0.6274
## `percent more than 1 occupant` 0.0110738 0.0085480 1.295 0.2054
## `percent more than 1 unit` -0.0021943 0.0020564 -1.067 0.2947
## avg_median_age 0.0019749 0.0055048 0.359 0.7224
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.08564 on 29 degrees of freedom
## Multiple R-squared: 0.4304, Adjusted R-squared: 0.2929
## F-statistic: 3.13 on 7 and 29 DF, p-value: 0.01377
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.097e-04 -2.030e-04 -1.467e-04 2.018e-05 1.827e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0002693 0.0005401 -0.499 0.621
## total_visit_hours_per_capita 0.0001512 0.0001466 1.031 0.309
##
## Residual standard error: 0.0003994 on 35 degrees of freedom
## Multiple R-squared: 0.0295, Adjusted R-squared: 0.001772
## F-statistic: 1.064 on 1 and 35 DF, p-value: 0.3094
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.663e-04 -1.195e-04 -5.297e-05 9.133e-05 1.112e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 8.677e-04 1.712e-03 0.507 0.6161
## total_visit_hours_per_capita -2.424e-04 1.291e-04 -1.878 0.0705 .
## percent_under_125000 1.104e-05 5.720e-06 1.930 0.0634 .
## avg_household_size -3.426e-04 3.724e-04 -0.920 0.3652
## pop_density 2.560e-02 3.315e-02 0.772 0.4461
## `percent more than 1 occupant` 7.190e-05 2.807e-05 2.562 0.0159 *
## `percent more than 1 unit` -1.204e-05 6.920e-06 -1.739 0.0926 .
## avg_median_age 1.074e-05 1.826e-05 0.589 0.5607
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002885 on 29 degrees of freedom
## Multiple R-squared: 0.5805, Adjusted R-squared: 0.4792
## F-statistic: 5.732 on 7 and 29 DF, p-value: 0.0003127
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.14359 -0.06662 -0.02432 0.04395 0.27955
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.19894 0.13932 1.428 0.162
## total_visit_hours_per_capita -0.01575 0.03782 -0.416 0.680
##
## Residual standard error: 0.103 on 35 degrees of freedom
## Multiple R-squared: 0.004928, Adjusted R-squared: -0.0235
## F-statistic: 0.1733 on 1 and 35 DF, p-value: 0.6797
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.11581 -0.06083 -0.01348 0.03614 0.18119
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.3999248 0.5080767 0.787 0.4376
## total_visit_hours_per_capita -0.0992527 0.0383241 -2.590 0.0149 *
## percent_under_125000 0.0034101 0.0016977 2.009 0.0540 .
## avg_household_size -0.0234204 0.1105474 -0.212 0.8337
## pop_density 12.6281955 9.8382297 1.284 0.2094
## `percent more than 1 occupant` 0.0076659 0.0083312 0.920 0.3651
## `percent more than 1 unit` -0.0030888 0.0020541 -1.504 0.1435
## avg_median_age -0.0006175 0.0054191 -0.114 0.9101
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.08563 on 29 degrees of freedom
## Multiple R-squared: 0.4304, Adjusted R-squared: 0.293
## F-statistic: 3.131 on 7 and 29 DF, p-value: 0.01375
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.996e-04 -2.140e-04 -1.206e-04 9.495e-05 1.859e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0002451 0.0001134 2.162 0.0376 *
## total_weighted_visit_hours_per_capita 0.0014731 0.0035089 0.420 0.6772
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0004044 on 35 degrees of freedom
## Multiple R-squared: 0.00501, Adjusted R-squared: -0.02342
## F-statistic: 0.1762 on 1 and 35 DF, p-value: 0.6772
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.879e-04 -1.793e-04 2.842e-05 7.582e-05 1.131e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.123e-04 1.775e-03 0.120 0.9056
## total_weighted_visit_hours_per_capita -2.303e-04 5.147e-03 -0.045 0.9646
## percent_under_125000 7.958e-06 5.811e-06 1.369 0.1814
## avg_household_size -3.577e-04 4.187e-04 -0.854 0.4000
## pop_density 3.556e-02 4.397e-02 0.809 0.4253
## `percent more than 1 occupant` 6.660e-05 3.344e-05 1.991 0.0559 .
## `percent more than 1 unit` -1.096e-05 7.472e-06 -1.466 0.1534
## avg_median_age 1.054e-05 2.159e-05 0.488 0.6293
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003055 on 29 degrees of freedom
## Multiple R-squared: 0.5295, Adjusted R-squared: 0.4159
## F-statistic: 4.662 on 7 and 29 DF, p-value: 0.001346
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.13726 -0.07158 -0.02975 0.04893 0.26675
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.11933 0.02858 4.174 0.000188 ***
## total_weighted_visit_hours_per_capita 0.84231 0.88475 0.952 0.347611
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.102 on 35 degrees of freedom
## Multiple R-squared: 0.02524, Adjusted R-squared: -0.002608
## F-statistic: 0.9064 on 1 and 35 DF, p-value: 0.3476
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.144327 -0.053179 -0.006955 0.033093 0.241830
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.138750 0.550214 0.252 0.803
## total_weighted_visit_hours_per_capita -0.719163 1.595162 -0.451 0.655
## percent_under_125000 0.002193 0.001801 1.218 0.233
## avg_household_size -0.012471 0.129782 -0.096 0.924
## pop_density 19.973565 13.626559 1.466 0.153
## `percent more than 1 occupant` 0.003608 0.010365 0.348 0.730
## `percent more than 1 unit` -0.002456 0.002316 -1.061 0.298
## avg_median_age -0.001871 0.006693 -0.280 0.782
##
## Residual standard error: 0.09469 on 29 degrees of freedom
## Multiple R-squared: 0.3036, Adjusted R-squared: 0.1355
## F-statistic: 1.806 on 7 and 29 DF, p-value: 0.1241
##
## [1] "Cases start date: 2020-05-25"
## [1] "Visits start date: 2020-05-11"
## [1] "Weighted visits (by area and other visitors):"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -7.508e-04 -1.384e-04 -6.483e-05 2.376e-05 1.517e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0002297 0.0002337 -0.983 0.3310
## total_weighted_visits_per_capita 0.0194161 0.0087598 2.217 0.0319 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003809 on 44 degrees of freedom
## Multiple R-squared: 0.1004, Adjusted R-squared: 0.08
## F-statistic: 4.913 on 1 and 44 DF, p-value: 0.03187
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.169e-04 -1.587e-04 -1.508e-05 1.354e-04 8.588e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.560e-04 1.415e-03 -0.110 0.91274
## total_weighted_visits_per_capita 9.612e-03 8.933e-03 1.076 0.28869
## percent_under_125000 8.184e-06 5.196e-06 1.575 0.12348
## avg_household_size -3.148e-04 2.931e-04 -1.074 0.28960
## pop_density -2.404e-02 2.725e-02 -0.882 0.38320
## `percent more than 1 occupant` 6.886e-05 2.249e-05 3.062 0.00403 **
## `percent more than 1 unit` -6.287e-06 5.453e-06 -1.153 0.25614
## avg_median_age 1.002e-05 1.596e-05 0.628 0.53385
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002623 on 38 degrees of freedom
## Multiple R-squared: 0.6317, Adjusted R-squared: 0.5639
## F-statistic: 9.312 on 7 and 38 DF, p-value: 1.151e-06
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -7.508e-04 -1.384e-04 -6.483e-05 2.376e-05 1.517e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0002297 0.0002337 -0.983 0.3310
## total_weighted_visits_per_capita 0.0194161 0.0087598 2.217 0.0319 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003809 on 44 degrees of freedom
## Multiple R-squared: 0.1004, Adjusted R-squared: 0.08
## F-statistic: 4.913 on 1 and 44 DF, p-value: 0.03187
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.169e-04 -1.587e-04 -1.508e-05 1.354e-04 8.588e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.560e-04 1.415e-03 -0.110 0.91274
## total_weighted_visits_per_capita 9.612e-03 8.933e-03 1.076 0.28869
## percent_under_125000 8.184e-06 5.196e-06 1.575 0.12348
## avg_household_size -3.148e-04 2.931e-04 -1.074 0.28960
## pop_density -2.404e-02 2.725e-02 -0.882 0.38320
## `percent more than 1 occupant` 6.886e-05 2.249e-05 3.062 0.00403 **
## `percent more than 1 unit` -6.287e-06 5.453e-06 -1.153 0.25614
## avg_median_age 1.002e-05 1.596e-05 0.628 0.53385
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002623 on 38 degrees of freedom
## Multiple R-squared: 0.6317, Adjusted R-squared: 0.5639
## F-statistic: 9.312 on 7 and 38 DF, p-value: 1.151e-06
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.18593 -0.09919 -0.01297 0.02710 0.55801
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.08860 0.08956 0.989 0.328
## total_weighted_visits_per_capita 1.92728 3.35743 0.574 0.569
##
## Residual standard error: 0.146 on 44 degrees of freedom
## Multiple R-squared: 0.007433, Adjusted R-squared: -0.01513
## F-statistic: 0.3295 on 1 and 44 DF, p-value: 0.5689
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.15412 -0.06729 -0.03362 0.02991 0.59437
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.459074 0.792048 -0.580 0.566
## total_weighted_visits_per_capita 1.166523 5.001451 0.233 0.817
## percent_under_125000 0.003492 0.002909 1.200 0.237
## avg_household_size 0.076338 0.164096 0.465 0.644
## pop_density -20.294225 15.257727 -1.330 0.191
## `percent more than 1 occupant` -0.004005 0.012594 -0.318 0.752
## `percent more than 1 unit` 0.001839 0.003053 0.602 0.550
## avg_median_age 0.003747 0.008937 0.419 0.677
##
## Residual standard error: 0.1469 on 38 degrees of freedom
## Multiple R-squared: 0.1328, Adjusted R-squared: -0.02694
## F-statistic: 0.8314 on 7 and 38 DF, p-value: 0.568
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -5.575e-04 -2.032e-04 -9.714e-05 1.779e-05 1.629e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.829e-04 2.924e-04 -0.626 0.535
## total_visit_hours_per_capita 1.209e-04 7.598e-05 1.591 0.119
##
## Residual standard error: 0.0003906 on 44 degrees of freedom
## Multiple R-squared: 0.05438, Adjusted R-squared: 0.03289
## F-statistic: 2.53 on 1 and 44 DF, p-value: 0.1188
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.432e-04 -1.663e-04 -2.445e-05 1.191e-04 9.016e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.409e-05 1.403e-03 0.017 0.9864
## total_visit_hours_per_capita -5.854e-05 6.132e-05 -0.955 0.3458
## percent_under_125000 1.200e-05 4.896e-06 2.452 0.0189 *
## avg_household_size -2.025e-04 3.019e-04 -0.671 0.5065
## pop_density -1.402e-02 2.527e-02 -0.555 0.5822
## `percent more than 1 occupant` 5.750e-05 2.212e-05 2.599 0.0132 *
## `percent more than 1 unit` -6.521e-06 5.450e-06 -1.197 0.2389
## avg_median_age 4.724e-06 1.534e-05 0.308 0.7599
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002631 on 38 degrees of freedom
## Multiple R-squared: 0.6294, Adjusted R-squared: 0.5611
## F-statistic: 9.219 on 7 and 38 DF, p-value: 1.286e-06
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -5.575e-04 -2.032e-04 -9.714e-05 1.779e-05 1.629e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.829e-04 2.924e-04 -0.626 0.535
## total_visit_hours_per_capita 1.209e-04 7.598e-05 1.591 0.119
##
## Residual standard error: 0.0003906 on 44 degrees of freedom
## Multiple R-squared: 0.05438, Adjusted R-squared: 0.03289
## F-statistic: 2.53 on 1 and 44 DF, p-value: 0.1188
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.432e-04 -1.663e-04 -2.445e-05 1.191e-04 9.016e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.409e-05 1.403e-03 0.017 0.9864
## total_visit_hours_per_capita -5.854e-05 6.132e-05 -0.955 0.3458
## percent_under_125000 1.200e-05 4.896e-06 2.452 0.0189 *
## avg_household_size -2.025e-04 3.019e-04 -0.671 0.5065
## pop_density -1.402e-02 2.527e-02 -0.555 0.5822
## `percent more than 1 occupant` 5.750e-05 2.212e-05 2.599 0.0132 *
## `percent more than 1 unit` -6.521e-06 5.450e-06 -1.197 0.2389
## avg_median_age 4.724e-06 1.534e-05 0.308 0.7599
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002631 on 38 degrees of freedom
## Multiple R-squared: 0.6294, Adjusted R-squared: 0.5611
## F-statistic: 9.219 on 7 and 38 DF, p-value: 1.286e-06
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.15077 -0.09826 -0.01409 0.03635 0.55318
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.160842 0.109650 1.467 0.150
## total_visit_hours_per_capita -0.005922 0.028496 -0.208 0.836
##
## Residual standard error: 0.1465 on 44 degrees of freedom
## Multiple R-squared: 0.0009805, Adjusted R-squared: -0.02172
## F-statistic: 0.04318 on 1 and 44 DF, p-value: 0.8363
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.17493 -0.06766 -0.02940 0.04155 0.59688
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.475619 0.761954 -0.624 0.5362
## total_visit_hours_per_capita -0.049590 0.033294 -1.489 0.1446
## percent_under_125000 0.004945 0.002658 1.860 0.0706 .
## avg_household_size 0.143517 0.163889 0.876 0.3867
## pop_density -19.986961 13.720350 -1.457 0.1534
## `percent more than 1 occupant` -0.008619 0.012012 -0.718 0.4774
## `percent more than 1 unit` 0.002361 0.002959 0.798 0.4299
## avg_median_age 0.002833 0.008331 0.340 0.7357
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1428 on 38 degrees of freedom
## Multiple R-squared: 0.1795, Adjusted R-squared: 0.02832
## F-statistic: 1.187 on 7 and 38 DF, p-value: 0.3331
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.754e-04 -2.187e-04 -1.409e-04 1.563e-05 1.675e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.773e-04 9.938e-05 2.790 0.00776 **
## total_weighted_visit_hours_per_capita -1.409e-04 2.673e-03 -0.053 0.95819
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0004016 on 44 degrees of freedom
## Multiple R-squared: 6.319e-05, Adjusted R-squared: -0.02266
## F-statistic: 0.00278 on 1 and 44 DF, p-value: 0.9582
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.310e-04 -1.745e-04 -2.132e-05 1.082e-04 9.040e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 7.680e-05 1.419e-03 0.054 0.9571
## total_weighted_visit_hours_per_capita 1.399e-04 2.933e-03 0.048 0.9622
## percent_under_125000 1.064e-05 4.739e-06 2.246 0.0306 *
## avg_household_size -2.798e-04 3.045e-04 -0.919 0.3640
## pop_density -1.372e-02 3.241e-02 -0.424 0.6743
## `percent more than 1 occupant` 6.233e-05 2.323e-05 2.684 0.0107 *
## `percent more than 1 unit` -7.311e-06 5.500e-06 -1.329 0.1917
## avg_median_age 5.281e-06 1.599e-05 0.330 0.7430
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002662 on 38 degrees of freedom
## Multiple R-squared: 0.6205, Adjusted R-squared: 0.5506
## F-statistic: 8.877 on 7 and 38 DF, p-value: 1.951e-06
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.754e-04 -2.187e-04 -1.409e-04 1.563e-05 1.675e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.773e-04 9.938e-05 2.790 0.00776 **
## total_weighted_visit_hours_per_capita -1.409e-04 2.673e-03 -0.053 0.95819
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0004016 on 44 degrees of freedom
## Multiple R-squared: 6.319e-05, Adjusted R-squared: -0.02266
## F-statistic: 0.00278 on 1 and 44 DF, p-value: 0.9582
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.310e-04 -1.745e-04 -2.132e-05 1.082e-04 9.040e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 7.680e-05 1.419e-03 0.054 0.9571
## total_weighted_visit_hours_per_capita 1.399e-04 2.933e-03 0.048 0.9622
## percent_under_125000 1.064e-05 4.739e-06 2.246 0.0306 *
## avg_household_size -2.798e-04 3.045e-04 -0.919 0.3640
## pop_density -1.372e-02 3.241e-02 -0.424 0.6743
## `percent more than 1 occupant` 6.233e-05 2.323e-05 2.684 0.0107 *
## `percent more than 1 unit` -7.311e-06 5.500e-06 -1.329 0.1917
## avg_median_age 5.281e-06 1.599e-05 0.330 0.7430
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002662 on 38 degrees of freedom
## Multiple R-squared: 0.6205, Adjusted R-squared: 0.5506
## F-statistic: 8.877 on 7 and 38 DF, p-value: 1.951e-06
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.15319 -0.09616 -0.01866 0.03766 0.54904
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.16443 0.03593 4.576 3.86e-05 ***
## total_weighted_visit_hours_per_capita -0.86854 0.96646 -0.899 0.374
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1452 on 44 degrees of freedom
## Multiple R-squared: 0.01802, Adjusted R-squared: -0.004293
## F-statistic: 0.8076 on 1 and 44 DF, p-value: 0.3737
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.15444 -0.06214 -0.02985 0.03895 0.59326
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.428969 0.777584 -0.552 0.584
## total_weighted_visit_hours_per_capita -1.200621 1.607239 -0.747 0.460
## percent_under_125000 0.003753 0.002597 1.445 0.157
## avg_household_size 0.111538 0.166881 0.668 0.508
## pop_density -10.760607 17.757465 -0.606 0.548
## `percent more than 1 occupant` -0.008028 0.012727 -0.631 0.532
## `percent more than 1 unit` 0.002006 0.003014 0.665 0.510
## avg_median_age 0.001581 0.008761 0.180 0.858
##
## Residual standard error: 0.1459 on 38 degrees of freedom
## Multiple R-squared: 0.1441, Adjusted R-squared: -0.01352
## F-statistic: 0.9142 on 7 and 38 DF, p-value: 0.5062
##
## [1] "Weighted visits:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -7.112e-04 -1.942e-04 -6.421e-05 6.341e-05 1.292e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0008019 0.0003222 -2.489 0.01758 *
## total_weighted_visits_per_capita 0.0428570 0.0122516 3.498 0.00127 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003664 on 36 degrees of freedom
## Multiple R-squared: 0.2537, Adjusted R-squared: 0.2329
## F-statistic: 12.24 on 1 and 36 DF, p-value: 0.001266
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0003836 -0.0001702 0.0000090 0.0001537 0.0006904
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -2.667e-04 1.504e-03 -0.177 0.86048
## total_weighted_visits_per_capita 2.572e-02 1.299e-02 1.981 0.05687 .
## percent_under_125000 2.742e-06 5.969e-06 0.459 0.64925
## avg_household_size -4.299e-04 3.353e-04 -1.282 0.20960
## pop_density -9.435e-03 3.086e-02 -0.306 0.76189
## `percent more than 1 occupant` 8.617e-05 2.581e-05 3.339 0.00226 **
## `percent more than 1 unit` -7.270e-06 6.365e-06 -1.142 0.26242
## avg_median_age 1.602e-05 1.648e-05 0.972 0.33897
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002603 on 30 degrees of freedom
## Multiple R-squared: 0.6862, Adjusted R-squared: 0.6129
## F-statistic: 9.37 on 7 and 30 DF, p-value: 4.08e-06
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.183595 -0.035665 0.000379 0.045395 0.138908
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.01206 0.06307 -0.191 0.8495
## total_weighted_visits_per_capita 5.54172 2.39813 2.311 0.0267 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.07172 on 36 degrees of freedom
## Multiple R-squared: 0.1292, Adjusted R-squared: 0.105
## F-statistic: 5.34 on 1 and 36 DF, p-value: 0.02668
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.103465 -0.044481 -0.006248 0.042062 0.106753
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0187103 0.3800340 0.049 0.9611
## total_weighted_visits_per_capita 5.5162092 3.2814346 1.681 0.1031
## percent_under_125000 -0.0003667 0.0015081 -0.243 0.8096
## avg_household_size -0.1161606 0.0847135 -1.371 0.1805
## pop_density 0.3331716 7.7961478 0.043 0.9662
## `percent more than 1 occupant` 0.0164555 0.0065210 2.523 0.0172 *
## `percent more than 1 unit` -0.0012762 0.0016083 -0.794 0.4337
## avg_median_age 0.0065493 0.0041648 1.573 0.1263
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.06576 on 30 degrees of freedom
## Multiple R-squared: 0.3899, Adjusted R-squared: 0.2475
## F-statistic: 2.738 on 7 and 30 DF, p-value: 0.02532
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -5.461e-04 -1.859e-04 -1.106e-04 5.938e-05 1.582e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0005624 0.0004816 -1.168 0.2505
## total_visit_hours_per_capita 0.0002239 0.0001230 1.820 0.0771 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0004059 on 36 degrees of freedom
## Multiple R-squared: 0.08427, Adjusted R-squared: 0.05883
## F-statistic: 3.313 on 1 and 36 DF, p-value: 0.07706
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.375e-04 -1.757e-04 -3.310e-06 1.098e-04 8.200e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.373e-05 1.588e-03 0.028 0.9782
## total_visit_hours_per_capita -7.695e-05 1.257e-04 -0.612 0.5451
## percent_under_125000 1.142e-05 6.201e-06 1.842 0.0753 .
## avg_household_size -2.320e-04 4.142e-04 -0.560 0.5796
## pop_density 7.076e-03 3.126e-02 0.226 0.8224
## `percent more than 1 occupant` 6.583e-05 3.085e-05 2.134 0.0412 *
## `percent more than 1 unit` -8.487e-06 6.995e-06 -1.213 0.2345
## avg_median_age 7.636e-06 1.723e-05 0.443 0.6608
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002751 on 30 degrees of freedom
## Multiple R-squared: 0.6495, Adjusted R-squared: 0.5677
## F-statistic: 7.941 on 7 and 30 DF, p-value: 1.889e-05
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.136632 -0.044223 -0.003426 0.042540 0.173159
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.157796 0.091080 1.732 0.0917 .
## total_visit_hours_per_capita -0.006862 0.023261 -0.295 0.7697
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.07676 on 36 degrees of freedom
## Multiple R-squared: 0.002412, Adjusted R-squared: -0.0253
## F-statistic: 0.08703 on 1 and 36 DF, p-value: 0.7697
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.112877 -0.041387 0.006487 0.036378 0.125196
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0190064 0.3773649 0.050 0.9602
## total_visit_hours_per_capita -0.0535108 0.0298851 -1.791 0.0835 .
## percent_under_125000 0.0024805 0.0014741 1.683 0.1028
## avg_household_size -0.0097587 0.0984562 -0.099 0.9217
## pop_density 3.1509117 7.4299575 0.424 0.6745
## `percent more than 1 occupant` 0.0075206 0.0073331 1.026 0.3133
## `percent more than 1 unit` -0.0008325 0.0016628 -0.501 0.6203
## avg_median_age 0.0039968 0.0040954 0.976 0.3369
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.06538 on 30 degrees of freedom
## Multiple R-squared: 0.3968, Adjusted R-squared: 0.2561
## F-statistic: 2.82 on 7 and 30 DF, p-value: 0.02212
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.578e-04 -2.196e-04 -1.546e-04 -1.522e-05 1.637e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0002935 0.0001104 2.658 0.0116 *
## total_weighted_visit_hours_per_capita 0.0004183 0.0029276 0.143 0.8872
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000424 on 36 degrees of freedom
## Multiple R-squared: 0.0005668, Adjusted R-squared: -0.0272
## F-statistic: 0.02042 on 1 and 36 DF, p-value: 0.8872
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.287e-04 -1.868e-04 -1.165e-05 1.178e-04 8.138e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.057e-04 1.605e-03 0.128 0.8989
## total_weighted_visit_hours_per_capita 3.425e-04 3.916e-03 0.087 0.9309
## percent_under_125000 9.327e-06 5.284e-06 1.765 0.0877 .
## avg_household_size -3.834e-04 4.128e-04 -0.929 0.3604
## pop_density 6.291e-03 4.083e-02 0.154 0.8786
## `percent more than 1 occupant` 7.700e-05 3.291e-05 2.339 0.0262 *
## `percent more than 1 unit` -1.018e-05 7.119e-06 -1.430 0.1629
## avg_median_age 9.847e-06 1.864e-05 0.528 0.6013
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002767 on 30 degrees of freedom
## Multiple R-squared: 0.6452, Adjusted R-squared: 0.5624
## F-statistic: 7.794 on 7 and 30 DF, p-value: 2.234e-05
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.136700 -0.045708 -0.002189 0.046984 0.169187
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.1410 0.0199 7.086 2.53e-08 ***
## total_weighted_visit_hours_per_capita -0.3336 0.5277 -0.632 0.531
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.07643 on 36 degrees of freedom
## Multiple R-squared: 0.01098, Adjusted R-squared: -0.01649
## F-statistic: 0.3996 on 1 and 36 DF, p-value: 0.5313
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.113343 -0.043901 -0.000055 0.036386 0.132668
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.068754 0.395987 0.174 0.863
## total_weighted_visit_hours_per_capita -0.651889 0.966127 -0.675 0.505
## percent_under_125000 0.001151 0.001304 0.883 0.384
## avg_household_size -0.067110 0.101836 -0.659 0.515
## pop_density 8.551156 10.073435 0.849 0.403
## `percent more than 1 occupant` 0.010954 0.008120 1.349 0.187
## `percent more than 1 unit` -0.001413 0.001756 -0.804 0.428
## avg_median_age 0.003868 0.004600 0.841 0.407
##
## Residual standard error: 0.06827 on 30 degrees of freedom
## Multiple R-squared: 0.3424, Adjusted R-squared: 0.1889
## F-statistic: 2.231 on 7 and 30 DF, p-value: 0.05959
##
## [1] "Cases start date: 2020-06-01"
## [1] "Visits start date: 2020-05-18"
## [1] "Weighted visits (by area and other visitors):"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.108e-04 -1.355e-04 -3.528e-05 5.819e-05 1.006e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0002577 0.0001984 -1.299 0.2007
## total_weighted_visits_per_capita 0.0164224 0.0065194 2.519 0.0155 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002902 on 44 degrees of freedom
## Multiple R-squared: 0.126, Adjusted R-squared: 0.1062
## F-statistic: 6.345 on 1 and 44 DF, p-value: 0.01548
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.361e-04 -1.290e-04 -1.580e-06 8.259e-05 3.656e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -5.299e-04 8.890e-04 -0.596 0.5546
## total_weighted_visits_per_capita 5.352e-03 4.874e-03 1.098 0.2791
## percent_under_125000 6.982e-06 3.041e-06 2.296 0.0273 *
## avg_household_size -2.093e-04 1.754e-04 -1.193 0.2402
## pop_density 8.218e-03 1.566e-02 0.525 0.6028
## `percent more than 1 occupant` 5.782e-05 1.305e-05 4.429 7.75e-05 ***
## `percent more than 1 unit` -5.672e-06 3.388e-06 -1.674 0.1023
## avg_median_age 1.423e-05 9.899e-06 1.438 0.1586
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001577 on 38 degrees of freedom
## Multiple R-squared: 0.777, Adjusted R-squared: 0.7359
## F-statistic: 18.92 on 7 and 38 DF, p-value: 1.347e-10
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.108e-04 -1.355e-04 -3.528e-05 5.819e-05 1.006e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0002577 0.0001984 -1.299 0.2007
## total_weighted_visits_per_capita 0.0164224 0.0065194 2.519 0.0155 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002902 on 44 degrees of freedom
## Multiple R-squared: 0.126, Adjusted R-squared: 0.1062
## F-statistic: 6.345 on 1 and 44 DF, p-value: 0.01548
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.361e-04 -1.290e-04 -1.580e-06 8.259e-05 3.656e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -5.299e-04 8.890e-04 -0.596 0.5546
## total_weighted_visits_per_capita 5.352e-03 4.874e-03 1.098 0.2791
## percent_under_125000 6.982e-06 3.041e-06 2.296 0.0273 *
## avg_household_size -2.093e-04 1.754e-04 -1.193 0.2402
## pop_density 8.218e-03 1.566e-02 0.525 0.6028
## `percent more than 1 occupant` 5.782e-05 1.305e-05 4.429 7.75e-05 ***
## `percent more than 1 unit` -5.672e-06 3.388e-06 -1.674 0.1023
## avg_median_age 1.423e-05 9.899e-06 1.438 0.1586
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001577 on 38 degrees of freedom
## Multiple R-squared: 0.777, Adjusted R-squared: 0.7359
## F-statistic: 18.92 on 7 and 38 DF, p-value: 1.347e-10
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.15770 -0.06609 0.00721 0.02309 0.63590
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.04013 0.08070 -0.497 0.6215
## total_weighted_visits_per_capita 4.85986 2.65241 1.832 0.0737 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.118 on 44 degrees of freedom
## Multiple R-squared: 0.07089, Adjusted R-squared: 0.04977
## F-statistic: 3.357 on 1 and 44 DF, p-value: 0.07369
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.13168 -0.05346 -0.01307 0.02188 0.61031
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.5009049 0.6716352 -0.746 0.460
## total_weighted_visits_per_capita 4.7923044 3.6823938 1.301 0.201
## percent_under_125000 -0.0006219 0.0022975 -0.271 0.788
## avg_household_size 0.0088209 0.1325028 0.067 0.947
## pop_density 12.2674739 11.8316953 1.037 0.306
## `percent more than 1 occupant` 0.0100399 0.0098620 1.018 0.315
## `percent more than 1 unit` 0.0004526 0.0025594 0.177 0.861
## avg_median_age 0.0091957 0.0074780 1.230 0.226
##
## Residual standard error: 0.1191 on 38 degrees of freedom
## Multiple R-squared: 0.1826, Adjusted R-squared: 0.03206
## F-statistic: 1.213 on 7 and 38 DF, p-value: 0.3196
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.287e-04 -1.772e-04 -5.135e-05 6.721e-05 1.041e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.241e-04 2.357e-04 -1.375 0.1761
## total_visit_hours_per_capita 1.402e-04 5.861e-05 2.392 0.0211 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000292 on 44 degrees of freedom
## Multiple R-squared: 0.1151, Adjusted R-squared: 0.09497
## F-statistic: 5.722 on 1 and 44 DF, p-value: 0.02109
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.320e-04 -1.184e-04 4.860e-06 8.839e-05 3.846e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -8.317e-05 8.663e-04 -0.096 0.924021
## total_visit_hours_per_capita -2.925e-05 4.030e-05 -0.726 0.472379
## percent_under_125000 8.963e-06 2.989e-06 2.999 0.004764 **
## avg_household_size -2.235e-04 1.764e-04 -1.266 0.213052
## pop_density 8.328e-03 1.639e-02 0.508 0.614332
## `percent more than 1 occupant` 5.641e-05 1.308e-05 4.312 0.000111 ***
## `percent more than 1 unit` -6.962e-06 3.269e-06 -2.130 0.039729 *
## avg_median_age 9.162e-06 9.386e-06 0.976 0.335209
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001591 on 38 degrees of freedom
## Multiple R-squared: 0.7731, Adjusted R-squared: 0.7313
## F-statistic: 18.5 on 7 and 38 DF, p-value: 1.855e-10
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.287e-04 -1.772e-04 -5.135e-05 6.721e-05 1.041e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.241e-04 2.357e-04 -1.375 0.1761
## total_visit_hours_per_capita 1.402e-04 5.861e-05 2.392 0.0211 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000292 on 44 degrees of freedom
## Multiple R-squared: 0.1151, Adjusted R-squared: 0.09497
## F-statistic: 5.722 on 1 and 44 DF, p-value: 0.02109
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.320e-04 -1.184e-04 4.860e-06 8.839e-05 3.846e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -8.317e-05 8.663e-04 -0.096 0.924021
## total_visit_hours_per_capita -2.925e-05 4.030e-05 -0.726 0.472379
## percent_under_125000 8.963e-06 2.989e-06 2.999 0.004764 **
## avg_household_size -2.235e-04 1.764e-04 -1.266 0.213052
## pop_density 8.328e-03 1.639e-02 0.508 0.614332
## `percent more than 1 occupant` 5.641e-05 1.308e-05 4.312 0.000111 ***
## `percent more than 1 unit` -6.962e-06 3.269e-06 -2.130 0.039729 *
## avg_median_age 9.162e-06 9.386e-06 0.976 0.335209
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001591 on 38 degrees of freedom
## Multiple R-squared: 0.7731, Adjusted R-squared: 0.7313
## F-statistic: 18.5 on 7 and 38 DF, p-value: 1.855e-10
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.11610 -0.06613 0.00018 0.03328 0.68573
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.05688 0.09859 0.577 0.567
## total_visit_hours_per_capita 0.01198 0.02452 0.489 0.627
##
## Residual standard error: 0.1221 on 44 degrees of freedom
## Multiple R-squared: 0.005398, Adjusted R-squared: -0.01721
## F-statistic: 0.2388 on 1 and 44 DF, p-value: 0.6275
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.11099 -0.05434 -0.01236 0.02065 0.65666
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.2324736 0.6629455 -0.351 0.728
## total_visit_hours_per_capita 0.0036942 0.0308380 0.120 0.905
## percent_under_125000 0.0004414 0.0022873 0.193 0.848
## avg_household_size -0.0040622 0.1350209 -0.030 0.976
## pop_density 16.8039823 12.5434978 1.340 0.188
## `percent more than 1 occupant` 0.0084868 0.0100113 0.848 0.402
## `percent more than 1 unit` -0.0005247 0.0025015 -0.210 0.835
## avg_median_age 0.0057228 0.0071830 0.797 0.431
##
## Residual standard error: 0.1217 on 38 degrees of freedom
## Multiple R-squared: 0.1465, Adjusted R-squared: -0.0107
## F-statistic: 0.932 on 7 and 38 DF, p-value: 0.4934
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.656e-04 -1.735e-04 -6.381e-05 4.925e-05 1.035e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.015e-04 9.597e-05 1.057 0.296
## total_weighted_visit_hours_per_capita 4.040e-03 2.666e-03 1.515 0.137
##
## Residual standard error: 0.0003026 on 44 degrees of freedom
## Multiple R-squared: 0.04958, Adjusted R-squared: 0.02798
## F-statistic: 2.296 on 1 and 44 DF, p-value: 0.1369
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.318e-04 -1.025e-04 -9.170e-06 8.421e-05 3.516e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.575e-04 8.235e-04 -0.556 0.5818
## total_weighted_visit_hours_per_capita 3.085e-03 1.578e-03 1.955 0.0580
## percent_under_125000 7.277e-06 2.764e-06 2.633 0.0122
## avg_household_size -1.764e-04 1.711e-04 -1.031 0.3090
## pop_density 7.209e-03 1.491e-02 0.483 0.6315
## `percent more than 1 occupant` 5.582e-05 1.255e-05 4.447 7.34e-05
## `percent more than 1 unit` -6.141e-06 3.146e-06 -1.952 0.0584
## avg_median_age 1.196e-05 8.947e-06 1.337 0.1892
##
## (Intercept)
## total_weighted_visit_hours_per_capita .
## percent_under_125000 *
## avg_household_size
## pop_density
## `percent more than 1 occupant` ***
## `percent more than 1 unit` .
## avg_median_age
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001527 on 38 degrees of freedom
## Multiple R-squared: 0.791, Adjusted R-squared: 0.7525
## F-statistic: 20.54 on 7 and 38 DF, p-value: 4.115e-11
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.656e-04 -1.735e-04 -6.381e-05 4.925e-05 1.035e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.015e-04 9.597e-05 1.057 0.296
## total_weighted_visit_hours_per_capita 4.040e-03 2.666e-03 1.515 0.137
##
## Residual standard error: 0.0003026 on 44 degrees of freedom
## Multiple R-squared: 0.04958, Adjusted R-squared: 0.02798
## F-statistic: 2.296 on 1 and 44 DF, p-value: 0.1369
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.318e-04 -1.025e-04 -9.170e-06 8.421e-05 3.516e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.575e-04 8.235e-04 -0.556 0.5818
## total_weighted_visit_hours_per_capita 3.085e-03 1.578e-03 1.955 0.0580
## percent_under_125000 7.277e-06 2.764e-06 2.633 0.0122
## avg_household_size -1.764e-04 1.711e-04 -1.031 0.3090
## pop_density 7.209e-03 1.491e-02 0.483 0.6315
## `percent more than 1 occupant` 5.582e-05 1.255e-05 4.447 7.34e-05
## `percent more than 1 unit` -6.141e-06 3.146e-06 -1.952 0.0584
## avg_median_age 1.196e-05 8.947e-06 1.337 0.1892
##
## (Intercept)
## total_weighted_visit_hours_per_capita .
## percent_under_125000 *
## avg_household_size
## pop_density
## `percent more than 1 occupant` ***
## `percent more than 1 unit` .
## avg_median_age
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001527 on 38 degrees of freedom
## Multiple R-squared: 0.791, Adjusted R-squared: 0.7525
## F-statistic: 20.54 on 7 and 38 DF, p-value: 4.115e-11
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.11080 -0.07409 -0.00705 0.02787 0.68391
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.1157 0.0388 2.981 0.00467 **
## total_weighted_visit_hours_per_capita -0.3578 1.0779 -0.332 0.74153
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1223 on 44 degrees of freedom
## Multiple R-squared: 0.002498, Adjusted R-squared: -0.02017
## F-statistic: 0.1102 on 1 and 44 DF, p-value: 0.7415
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.09565 -0.05525 -0.00857 0.01934 0.65237
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.109404 0.646785 -0.169 0.867
## total_weighted_visit_hours_per_capita -1.342029 1.239450 -1.083 0.286
## percent_under_125000 0.000960 0.002171 0.442 0.661
## avg_household_size -0.024594 0.134358 -0.183 0.856
## pop_density 18.631873 11.711289 1.591 0.120
## `percent more than 1 occupant` 0.008658 0.009859 0.878 0.385
## `percent more than 1 unit` -0.000828 0.002471 -0.335 0.739
## avg_median_age 0.004828 0.007027 0.687 0.496
##
## Residual standard error: 0.1199 on 38 degrees of freedom
## Multiple R-squared: 0.1718, Adjusted R-squared: 0.01918
## F-statistic: 1.126 on 7 and 38 DF, p-value: 0.3677
##
## [1] "Weighted visits:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.946e-04 -1.533e-04 -2.896e-05 8.443e-05 9.524e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0003356 0.0002214 -1.516 0.13786
## total_weighted_visits_per_capita 0.0201117 0.0073625 2.732 0.00951 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000294 on 38 degrees of freedom
## Multiple R-squared: 0.1641, Adjusted R-squared: 0.1421
## F-statistic: 7.462 on 1 and 38 DF, p-value: 0.009506
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.272e-04 -1.348e-04 -9.740e-06 8.669e-05 3.723e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -5.516e-04 1.001e-03 -0.551 0.58544
## total_weighted_visits_per_capita 3.263e-03 6.313e-03 0.517 0.60881
## percent_under_125000 8.120e-06 3.704e-06 2.192 0.03576 *
## avg_household_size -1.991e-04 2.138e-04 -0.931 0.35886
## pop_density 8.905e-03 1.759e-02 0.506 0.61608
## `percent more than 1 occupant` 5.646e-05 1.625e-05 3.474 0.00149 **
## `percent more than 1 unit` -5.997e-06 3.981e-06 -1.506 0.14175
## avg_median_age 1.419e-05 1.146e-05 1.239 0.22440
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001692 on 32 degrees of freedom
## Multiple R-squared: 0.7669, Adjusted R-squared: 0.7159
## F-statistic: 15.04 on 7 and 32 DF, p-value: 1.63e-08
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.11157 -0.04245 0.01155 0.03802 0.10919
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.04460 0.04423 1.008 0.320
## total_weighted_visits_per_capita 1.89017 1.47070 1.285 0.206
##
## Residual standard error: 0.05874 on 38 degrees of freedom
## Multiple R-squared: 0.04166, Adjusted R-squared: 0.01644
## F-statistic: 1.652 on 1 and 38 DF, p-value: 0.2065
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.073470 -0.029898 -0.001576 0.025483 0.139217
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.2424518 0.3003490 -0.807 0.425
## total_weighted_visits_per_capita -1.2842936 1.8939731 -0.678 0.503
## percent_under_125000 0.0016314 0.0011113 1.468 0.152
## avg_household_size 0.0335089 0.0641542 0.522 0.605
## pop_density 8.2587112 5.2767176 1.565 0.127
## `percent more than 1 occupant` 0.0026241 0.0048761 0.538 0.594
## `percent more than 1 unit` 0.0001084 0.0011943 0.091 0.928
## avg_median_age 0.0034633 0.0034373 1.008 0.321
##
## Residual standard error: 0.05077 on 32 degrees of freedom
## Multiple R-squared: 0.3972, Adjusted R-squared: 0.2653
## F-statistic: 3.012 on 7 and 32 DF, p-value: 0.01511
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.691e-04 -1.673e-04 -6.284e-05 5.806e-05 1.021e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -3.596e-04 2.901e-04 -1.240 0.2227
## total_visit_hours_per_capita 1.529e-04 7.108e-05 2.151 0.0379 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003037 on 38 degrees of freedom
## Multiple R-squared: 0.1085, Adjusted R-squared: 0.08508
## F-statistic: 4.626 on 1 and 38 DF, p-value: 0.03791
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.229e-04 -1.297e-04 2.250e-06 9.681e-05 3.888e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.714e-04 9.931e-04 -0.173 0.86407
## total_visit_hours_per_capita -4.371e-05 5.064e-05 -0.863 0.39450
## percent_under_125000 1.009e-05 3.320e-06 3.039 0.00470 **
## avg_household_size -2.067e-04 2.126e-04 -0.973 0.33805
## pop_density 4.139e-03 1.871e-02 0.221 0.82632
## `percent more than 1 occupant` 5.596e-05 1.583e-05 3.536 0.00126 **
## `percent more than 1 unit` -7.005e-06 3.873e-06 -1.809 0.07988 .
## avg_median_age 1.008e-05 1.052e-05 0.958 0.34547
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000168 on 32 degrees of freedom
## Multiple R-squared: 0.7703, Adjusted R-squared: 0.7201
## F-statistic: 15.33 on 7 and 32 DF, p-value: 1.301e-08
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.099944 -0.039410 0.008934 0.038640 0.116131
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.075871 0.057182 1.327 0.192
## total_visit_hours_per_capita 0.006039 0.014011 0.431 0.669
##
## Residual standard error: 0.05985 on 38 degrees of freedom
## Multiple R-squared: 0.004866, Adjusted R-squared: -0.02132
## F-statistic: 0.1858 on 1 and 38 DF, p-value: 0.6689
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.07417 -0.02293 -0.00072 0.02878 0.13927
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.2386054 0.2997985 -0.796 0.432
## total_visit_hours_per_capita -0.0111821 0.0152880 -0.731 0.470
## percent_under_125000 0.0014812 0.0010022 1.478 0.149
## avg_household_size 0.0292013 0.0641672 0.455 0.652
## pop_density 5.9635360 5.6483382 1.056 0.299
## `percent more than 1 occupant` 0.0036731 0.0047777 0.769 0.448
## `percent more than 1 unit` 0.0001806 0.0011691 0.154 0.878
## avg_median_age 0.0040061 0.0031772 1.261 0.216
##
## Residual standard error: 0.05071 on 32 degrees of freedom
## Multiple R-squared: 0.3985, Adjusted R-squared: 0.267
## F-statistic: 3.029 on 7 and 32 DF, p-value: 0.01467
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.586e-04 -1.540e-04 -3.816e-05 5.484e-05 8.935e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -6.411e-05 1.075e-04 -0.597 0.55437
## total_weighted_visit_hours_per_capita 1.094e-02 3.338e-03 3.276 0.00225 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000284 on 38 degrees of freedom
## Multiple R-squared: 0.2202, Adjusted R-squared: 0.1997
## F-statistic: 10.73 on 1 and 38 DF, p-value: 0.002252
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.345e-04 -9.305e-05 -5.430e-06 8.446e-05 3.720e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -4.633e-04 9.013e-04 -0.514 0.610779
## total_weighted_visit_hours_per_capita 5.125e-03 2.349e-03 2.182 0.036592
## percent_under_125000 6.548e-06 3.179e-06 2.060 0.047647
## avg_household_size -1.747e-04 2.005e-04 -0.871 0.389989
## pop_density 5.945e-03 1.634e-02 0.364 0.718355
## `percent more than 1 occupant` 5.480e-05 1.487e-05 3.686 0.000839
## `percent more than 1 unit` -6.146e-06 3.618e-06 -1.699 0.099045
## avg_median_age 1.198e-05 9.767e-06 1.227 0.228765
##
## (Intercept)
## total_weighted_visit_hours_per_capita *
## percent_under_125000 *
## avg_household_size
## pop_density
## `percent more than 1 occupant` ***
## `percent more than 1 unit` .
## avg_median_age
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001585 on 32 degrees of freedom
## Multiple R-squared: 0.7954, Adjusted R-squared: 0.7507
## F-statistic: 17.77 on 7 and 32 DF, p-value: 2.202e-09
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.11697 -0.04301 0.01385 0.03845 0.11504
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.07370 0.02221 3.319 0.002 **
## total_weighted_visit_hours_per_capita 0.90542 0.68983 1.313 0.197
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.05868 on 38 degrees of freedom
## Multiple R-squared: 0.04337, Adjusted R-squared: 0.0182
## F-statistic: 1.723 on 1 and 38 DF, p-value: 0.1972
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.070111 -0.025898 -0.006105 0.028326 0.138516
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.2927170 0.2879456 -1.017 0.317
## total_weighted_visit_hours_per_capita -0.5872736 0.7504726 -0.783 0.440
## percent_under_125000 0.0015305 0.0010157 1.507 0.142
## avg_household_size 0.0297088 0.0640420 0.464 0.646
## pop_density 8.1357210 5.2201808 1.559 0.129
## `percent more than 1 occupant` 0.0033196 0.0047501 0.699 0.490
## `percent more than 1 unit` 0.0002673 0.0011558 0.231 0.819
## avg_median_age 0.0044021 0.0031203 1.411 0.168
##
## Residual standard error: 0.05065 on 32 degrees of freedom
## Multiple R-squared: 0.4, Adjusted R-squared: 0.2687
## F-statistic: 3.047 on 7 and 32 DF, p-value: 0.01423
##
## [1] "Cases start date: 2020-06-08"
## [1] "Visits start date: 2020-05-25"
## [1] "Weighted visits (by area and other visitors):"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.571e-04 -2.131e-04 -1.201e-04 2.963e-05 1.228e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0002247 0.0002975 0.755 0.454
## total_weighted_visits_per_capita 0.0011288 0.0139744 0.081 0.936
##
## Residual standard error: 0.000358 on 44 degrees of freedom
## Multiple R-squared: 0.0001483, Adjusted R-squared: -0.02258
## F-statistic: 0.006525 on 1 and 44 DF, p-value: 0.936
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.568e-04 -9.304e-05 -4.580e-06 9.066e-05 4.661e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.153e-03 1.035e-03 1.114 0.272414
## total_weighted_visits_per_capita -1.228e-02 8.760e-03 -1.402 0.168941
## percent_under_125000 1.214e-05 3.332e-06 3.644 0.000798 ***
## avg_household_size -4.721e-04 2.091e-04 -2.258 0.029743 *
## pop_density 2.140e-03 1.984e-02 0.108 0.914665
## `percent more than 1 occupant` 6.815e-05 1.543e-05 4.417 8.04e-05 ***
## `percent more than 1 unit` -1.318e-05 4.158e-06 -3.171 0.003004 **
## avg_median_age -1.109e-06 1.087e-05 -0.102 0.919227
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001863 on 38 degrees of freedom
## Multiple R-squared: 0.7662, Adjusted R-squared: 0.7231
## F-statistic: 17.79 on 7 and 38 DF, p-value: 3.207e-10
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.571e-04 -2.131e-04 -1.201e-04 2.963e-05 1.228e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0002247 0.0002975 0.755 0.454
## total_weighted_visits_per_capita 0.0011288 0.0139744 0.081 0.936
##
## Residual standard error: 0.000358 on 44 degrees of freedom
## Multiple R-squared: 0.0001483, Adjusted R-squared: -0.02258
## F-statistic: 0.006525 on 1 and 44 DF, p-value: 0.936
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.568e-04 -9.304e-05 -4.580e-06 9.066e-05 4.661e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.153e-03 1.035e-03 1.114 0.272414
## total_weighted_visits_per_capita -1.228e-02 8.760e-03 -1.402 0.168941
## percent_under_125000 1.214e-05 3.332e-06 3.644 0.000798 ***
## avg_household_size -4.721e-04 2.091e-04 -2.258 0.029743 *
## pop_density 2.140e-03 1.984e-02 0.108 0.914665
## `percent more than 1 occupant` 6.815e-05 1.543e-05 4.417 8.04e-05 ***
## `percent more than 1 unit` -1.318e-05 4.158e-06 -3.171 0.003004 **
## avg_median_age -1.109e-06 1.087e-05 -0.102 0.919227
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001863 on 38 degrees of freedom
## Multiple R-squared: 0.7662, Adjusted R-squared: 0.7231
## F-statistic: 17.79 on 7 and 38 DF, p-value: 3.207e-10
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.105033 -0.060878 -0.007083 0.057394 0.127717
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.18792 0.05858 3.208 0.00249 **
## total_weighted_visits_per_capita -4.55792 2.75154 -1.656 0.10474
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.07049 on 44 degrees of freedom
## Multiple R-squared: 0.0587, Adjusted R-squared: 0.03731
## F-statistic: 2.744 on 1 and 44 DF, p-value: 0.1047
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.08674 -0.04548 -0.01227 0.03589 0.14559
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.1835675 0.3485555 0.527 0.6015
## total_weighted_visits_per_capita -4.7667280 2.9494735 -1.616 0.1143
## percent_under_125000 0.0027409 0.0011219 2.443 0.0193 *
## avg_household_size -0.0364109 0.0703883 -0.517 0.6080
## pop_density -8.7462843 6.6797037 -1.309 0.1983
## `percent more than 1 occupant` 0.0035193 0.0051943 0.678 0.5022
## `percent more than 1 unit` -0.0011284 0.0014001 -0.806 0.4253
## avg_median_age -0.0004428 0.0036585 -0.121 0.9043
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.06272 on 38 degrees of freedom
## Multiple R-squared: 0.3564, Adjusted R-squared: 0.2378
## F-statistic: 3.006 on 7 and 38 DF, p-value: 0.01298
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.314e-04 -1.894e-04 -1.321e-04 5.417e-05 1.209e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.756e-05 2.713e-04 -0.065 0.949
## total_visit_hours_per_capita 8.380e-05 8.392e-05 0.999 0.323
##
## Residual standard error: 0.000354 on 44 degrees of freedom
## Multiple R-squared: 0.02216, Adjusted R-squared: -6.407e-05
## F-statistic: 0.9971 on 1 and 44 DF, p-value: 0.3235
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.326e-04 -1.014e-04 1.170e-06 1.072e-04 4.645e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 9.130e-04 9.969e-04 0.916 0.365522
## total_visit_hours_per_capita -7.260e-05 4.912e-05 -1.478 0.147643
## percent_under_125000 1.268e-05 3.375e-06 3.756 0.000578 ***
## avg_household_size -3.901e-04 2.076e-04 -1.879 0.067872 .
## pop_density -8.399e-03 1.785e-02 -0.471 0.640666
## `percent more than 1 occupant` 6.258e-05 1.540e-05 4.064 0.000233 ***
## `percent more than 1 unit` -1.110e-05 3.810e-06 -2.912 0.005975 **
## avg_median_age -2.789e-06 1.093e-05 -0.255 0.799977
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001858 on 38 degrees of freedom
## Multiple R-squared: 0.7675, Adjusted R-squared: 0.7246
## F-statistic: 17.92 on 7 and 38 DF, p-value: 2.903e-10
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.314e-04 -1.894e-04 -1.321e-04 5.417e-05 1.209e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.756e-05 2.713e-04 -0.065 0.949
## total_visit_hours_per_capita 8.380e-05 8.392e-05 0.999 0.323
##
## Residual standard error: 0.000354 on 44 degrees of freedom
## Multiple R-squared: 0.02216, Adjusted R-squared: -6.407e-05
## F-statistic: 0.9971 on 1 and 44 DF, p-value: 0.3235
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.326e-04 -1.014e-04 1.170e-06 1.072e-04 4.645e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 9.130e-04 9.969e-04 0.916 0.365522
## total_visit_hours_per_capita -7.260e-05 4.912e-05 -1.478 0.147643
## percent_under_125000 1.268e-05 3.375e-06 3.756 0.000578 ***
## avg_household_size -3.901e-04 2.076e-04 -1.879 0.067872 .
## pop_density -8.399e-03 1.785e-02 -0.471 0.640666
## `percent more than 1 occupant` 6.258e-05 1.540e-05 4.064 0.000233 ***
## `percent more than 1 unit` -1.110e-05 3.810e-06 -2.912 0.005975 **
## avg_median_age -2.789e-06 1.093e-05 -0.255 0.799977
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001858 on 38 degrees of freedom
## Multiple R-squared: 0.7675, Adjusted R-squared: 0.7246
## F-statistic: 17.92 on 7 and 38 DF, p-value: 2.903e-10
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.12899 -0.05862 -0.02011 0.06861 0.13380
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.03933 0.05508 0.714 0.479
## total_visit_hours_per_capita 0.01674 0.01704 0.982 0.331
##
## Residual standard error: 0.07187 on 44 degrees of freedom
## Multiple R-squared: 0.02146, Adjusted R-squared: -0.0007747
## F-statistic: 0.9652 on 1 and 44 DF, p-value: 0.3313
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.09473 -0.04164 -0.01670 0.04152 0.14228
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.156e-02 3.479e-01 0.062 0.9509
## total_visit_hours_per_capita 1.075e-03 1.714e-02 0.063 0.9503
## percent_under_125000 2.545e-03 1.178e-03 2.161 0.0371 *
## avg_household_size -1.957e-02 7.244e-02 -0.270 0.7885
## pop_density -1.346e+01 6.230e+00 -2.161 0.0371 *
## `percent more than 1 occupant` 2.537e-03 5.374e-03 0.472 0.6395
## `percent more than 1 unit` -2.278e-04 1.330e-03 -0.171 0.8649
## avg_median_age -2.264e-04 3.814e-03 -0.059 0.9530
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.06484 on 38 degrees of freedom
## Multiple R-squared: 0.3122, Adjusted R-squared: 0.1855
## F-statistic: 2.464 on 7 and 38 DF, p-value: 0.0346
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.638e-04 -2.019e-04 -1.157e-04 4.664e-05 1.231e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0003244 0.0001238 2.620 0.012 *
## total_weighted_visit_hours_per_capita -0.0036261 0.0053448 -0.678 0.501
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003562 on 44 degrees of freedom
## Multiple R-squared: 0.01035, Adjusted R-squared: -0.01214
## F-statistic: 0.4603 on 1 and 44 DF, p-value: 0.5011
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0003641 -0.0001123 -0.0000029 0.0001051 0.0004732
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 8.038e-04 1.040e-03 0.773 0.444178
## total_weighted_visit_hours_per_capita -1.082e-03 3.755e-03 -0.288 0.774774
## percent_under_125000 1.178e-05 3.415e-06 3.449 0.001391
## avg_household_size -4.346e-04 2.132e-04 -2.039 0.048454
## pop_density -7.592e-03 2.005e-02 -0.379 0.707041
## `percent more than 1 occupant` 6.505e-05 1.577e-05 4.126 0.000194
## `percent more than 1 unit` -1.103e-05 3.949e-06 -2.793 0.008129
## avg_median_age -1.204e-06 1.130e-05 -0.107 0.915697
##
## (Intercept)
## total_weighted_visit_hours_per_capita
## percent_under_125000 **
## avg_household_size *
## pop_density
## `percent more than 1 occupant` ***
## `percent more than 1 unit` **
## avg_median_age
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001908 on 38 degrees of freedom
## Multiple R-squared: 0.7546, Adjusted R-squared: 0.7094
## F-statistic: 16.7 on 7 and 38 DF, p-value: 7.745e-10
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.638e-04 -2.019e-04 -1.157e-04 4.664e-05 1.231e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0003244 0.0001238 2.620 0.012 *
## total_weighted_visit_hours_per_capita -0.0036261 0.0053448 -0.678 0.501
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003562 on 44 degrees of freedom
## Multiple R-squared: 0.01035, Adjusted R-squared: -0.01214
## F-statistic: 0.4603 on 1 and 44 DF, p-value: 0.5011
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0003641 -0.0001123 -0.0000029 0.0001051 0.0004732
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 8.038e-04 1.040e-03 0.773 0.444178
## total_weighted_visit_hours_per_capita -1.082e-03 3.755e-03 -0.288 0.774774
## percent_under_125000 1.178e-05 3.415e-06 3.449 0.001391
## avg_household_size -4.346e-04 2.132e-04 -2.039 0.048454
## pop_density -7.592e-03 2.005e-02 -0.379 0.707041
## `percent more than 1 occupant` 6.505e-05 1.577e-05 4.126 0.000194
## `percent more than 1 unit` -1.103e-05 3.949e-06 -2.793 0.008129
## avg_median_age -1.204e-06 1.130e-05 -0.107 0.915697
##
## (Intercept)
## total_weighted_visit_hours_per_capita
## percent_under_125000 **
## avg_household_size *
## pop_density
## `percent more than 1 occupant` ***
## `percent more than 1 unit` **
## avg_median_age
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001908 on 38 degrees of freedom
## Multiple R-squared: 0.7546, Adjusted R-squared: 0.7094
## F-statistic: 16.7 on 7 and 38 DF, p-value: 7.745e-10
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.09880 -0.05872 -0.01486 0.06277 0.13977
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.12376 0.02471 5.008 9.38e-06 ***
## total_weighted_visit_hours_per_capita -1.49380 1.06677 -1.400 0.168
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.07109 on 44 degrees of freedom
## Multiple R-squared: 0.04266, Adjusted R-squared: 0.02091
## F-statistic: 1.961 on 1 and 44 DF, p-value: 0.1684
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.09903 -0.04133 -0.01208 0.04471 0.14133
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 8.716e-02 3.497e-01 0.249 0.8045
## total_weighted_visit_hours_per_capita -1.103e+00 1.263e+00 -0.873 0.3880
## percent_under_125000 2.665e-03 1.149e-03 2.319 0.0259 *
## avg_household_size -2.647e-02 7.171e-02 -0.369 0.7141
## pop_density -1.103e+01 6.745e+00 -1.636 0.1101
## `percent more than 1 occupant` 2.026e-03 5.304e-03 0.382 0.7046
## `percent more than 1 unit` -3.922e-04 1.329e-03 -0.295 0.7694
## avg_median_age -8.400e-04 3.802e-03 -0.221 0.8263
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0642 on 38 degrees of freedom
## Multiple R-squared: 0.3257, Adjusted R-squared: 0.2015
## F-statistic: 2.622 on 7 and 38 DF, p-value: 0.02597
##
## [1] "Weighted visits:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.004e-04 -2.060e-04 -1.365e-04 4.399e-05 1.197e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0001762 0.0003230 0.546 0.588
## total_weighted_visits_per_capita 0.0049281 0.0153040 0.322 0.749
##
## Residual standard error: 0.000368 on 39 degrees of freedom
## Multiple R-squared: 0.002652, Adjusted R-squared: -0.02292
## F-statistic: 0.1037 on 1 and 39 DF, p-value: 0.7492
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.448e-04 -9.858e-05 -1.361e-05 9.890e-05 4.558e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 9.292e-04 1.140e-03 0.815 0.42070
## total_weighted_visits_per_capita -1.343e-02 1.006e-02 -1.334 0.19121
## percent_under_125000 1.300e-05 3.652e-06 3.558 0.00116 **
## avg_household_size -4.377e-04 2.454e-04 -1.784 0.08363 .
## pop_density 3.629e-03 2.240e-02 0.162 0.87228
## `percent more than 1 occupant` 6.719e-05 1.818e-05 3.696 0.00079 ***
## `percent more than 1 unit` -1.308e-05 4.725e-06 -2.768 0.00918 **
## avg_median_age 1.151e-06 1.210e-05 0.095 0.92481
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001966 on 33 degrees of freedom
## Multiple R-squared: 0.7592, Adjusted R-squared: 0.7081
## F-statistic: 14.86 on 7 and 33 DF, p-value: 1.408e-08
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.10061 -0.05267 0.00304 0.05739 0.11764
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.18297 0.05895 3.104 0.00355 **
## total_weighted_visits_per_capita -3.81748 2.79343 -1.367 0.17958
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.06716 on 39 degrees of freedom
## Multiple R-squared: 0.0457, Adjusted R-squared: 0.02123
## F-statistic: 1.868 on 1 and 39 DF, p-value: 0.1796
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.100393 -0.048929 -0.002044 0.044079 0.132747
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.3712024 0.3695717 1.004 0.3225
## total_weighted_visits_per_capita -4.6714885 3.2638560 -1.431 0.1618
## percent_under_125000 0.0022343 0.0011845 1.886 0.0681 .
## avg_household_size -0.0868009 0.0795756 -1.091 0.2833
## pop_density -6.5758098 7.2635051 -0.905 0.3719
## `percent more than 1 occupant` 0.0062434 0.0058955 1.059 0.2973
## `percent more than 1 unit` -0.0018993 0.0015326 -1.239 0.2240
## avg_median_age -0.0005265 0.0039252 -0.134 0.8941
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.06375 on 33 degrees of freedom
## Multiple R-squared: 0.2726, Adjusted R-squared: 0.1183
## F-statistic: 1.767 on 7 and 33 DF, p-value: 0.1276
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.153e-04 -2.126e-04 -1.415e-04 9.453e-05 1.175e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0001111 0.0004237 -0.262 0.794
## total_visit_hours_per_capita 0.0001210 0.0001304 0.928 0.359
##
## Residual standard error: 0.0003644 on 39 degrees of freedom
## Multiple R-squared: 0.02162, Adjusted R-squared: -0.003471
## F-statistic: 0.8616 on 1 and 39 DF, p-value: 0.359
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.155e-04 -1.119e-04 4.780e-06 1.112e-04 4.298e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.372e-03 1.116e-03 1.230 0.227515
## total_visit_hours_per_capita -1.842e-04 8.143e-05 -2.262 0.030432 *
## percent_under_125000 1.350e-05 3.498e-06 3.861 0.000499 ***
## avg_household_size -5.223e-04 2.387e-04 -2.188 0.035884 *
## pop_density -7.078e-03 1.885e-02 -0.376 0.709610
## `percent more than 1 occupant` 7.739e-05 1.811e-05 4.273 0.000154 ***
## `percent more than 1 unit` -1.456e-05 4.527e-06 -3.216 0.002904 **
## avg_median_age 3.539e-06 1.161e-05 0.305 0.762472
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0001878 on 33 degrees of freedom
## Multiple R-squared: 0.7803, Adjusted R-squared: 0.7337
## F-statistic: 16.74 on 7 and 33 DF, p-value: 3.313e-09
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.10730 -0.06203 -0.01946 0.06213 0.12226
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.06466 0.07968 0.812 0.422
## total_visit_hours_per_capita 0.01212 0.02452 0.494 0.624
##
## Residual standard error: 0.06854 on 39 degrees of freedom
## Multiple R-squared: 0.006229, Adjusted R-squared: -0.01925
## F-statistic: 0.2445 on 1 and 39 DF, p-value: 0.6238
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.093456 -0.048203 -0.003219 0.039986 0.128461
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.865e-01 3.898e-01 0.735 0.4675
## total_visit_hours_per_capita -8.854e-03 2.845e-02 -0.311 0.7576
## percent_under_125000 2.089e-03 1.222e-03 1.710 0.0967 .
## avg_household_size -8.271e-02 8.341e-02 -0.992 0.3286
## pop_density -1.138e+01 6.584e+00 -1.729 0.0932 .
## `percent more than 1 occupant` 6.200e-03 6.327e-03 0.980 0.3343
## `percent more than 1 unit` -1.293e-03 1.582e-03 -0.817 0.4197
## avg_median_age -4.424e-04 4.058e-03 -0.109 0.9138
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0656 on 33 degrees of freedom
## Multiple R-squared: 0.2297, Adjusted R-squared: 0.0663
## F-statistic: 1.406 on 7 and 33 DF, p-value: 0.2361
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.810e-04 -2.068e-04 -1.338e-04 3.615e-05 1.200e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0003018 0.0001642 1.837 0.0738 .
## total_weighted_visit_hours_per_capita -0.0011711 0.0077709 -0.151 0.8810
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003683 on 39 degrees of freedom
## Multiple R-squared: 0.000582, Adjusted R-squared: -0.02504
## F-statistic: 0.02271 on 1 and 39 DF, p-value: 0.881
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.516e-04 -1.185e-04 -8.820e-06 1.184e-04 4.601e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 6.881e-04 1.151e-03 0.598 0.55409
## total_weighted_visit_hours_per_capita -2.924e-03 5.336e-03 -0.548 0.58745
## percent_under_125000 1.272e-05 3.745e-06 3.397 0.00179 **
## avg_household_size -4.342e-04 2.536e-04 -1.712 0.09624 .
## pop_density -5.339e-03 2.234e-02 -0.239 0.81258
## `percent more than 1 occupant` 6.572e-05 1.854e-05 3.546 0.00120 **
## `percent more than 1 unit` -1.130e-05 4.594e-06 -2.460 0.01929 *
## avg_median_age 9.752e-07 1.237e-05 0.079 0.93764
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002009 on 33 degrees of freedom
## Multiple R-squared: 0.7485, Adjusted R-squared: 0.6951
## F-statistic: 14.03 on 7 and 33 DF, p-value: 2.794e-08
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.105186 -0.059224 0.002964 0.059863 0.124662
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.11796 0.03056 3.860 0.000415 ***
## total_weighted_visit_hours_per_capita -0.72067 1.44588 -0.498 0.620982
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.06853 on 39 degrees of freedom
## Multiple R-squared: 0.00633, Adjusted R-squared: -0.01915
## F-statistic: 0.2484 on 1 and 39 DF, p-value: 0.621
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.094766 -0.045772 -0.004369 0.041354 0.129293
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.661e-01 3.761e-01 0.708 0.4841
## total_weighted_visit_hours_per_capita -4.653e-01 1.743e+00 -0.267 0.7912
## percent_under_125000 2.084e-03 1.223e-03 1.703 0.0979 .
## avg_household_size -8.111e-02 8.285e-02 -0.979 0.3347
## pop_density -1.071e+01 7.298e+00 -1.467 0.1519
## `percent more than 1 occupant` 5.674e-03 6.056e-03 0.937 0.3556
## `percent more than 1 unit` -1.190e-03 1.501e-03 -0.793 0.4337
## avg_median_age -5.738e-04 4.041e-03 -0.142 0.8879
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.06562 on 33 degrees of freedom
## Multiple R-squared: 0.2291, Adjusted R-squared: 0.06558
## F-statistic: 1.401 on 7 and 33 DF, p-value: 0.238
##
## [1] "Cases start date: 2020-06-15"
## [1] "Visits start date: 2020-06-01"
## [1] "Weighted visits (by area and other visitors):"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.137e-04 -2.371e-04 -1.516e-04 8.629e-05 1.450e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0007882 0.0003559 2.215 0.032 *
## total_weighted_visits_per_capita -0.0188614 0.0158798 -1.188 0.241
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0004249 on 44 degrees of freedom
## Multiple R-squared: 0.03107, Adjusted R-squared: 0.009045
## F-statistic: 1.411 on 1 and 44 DF, p-value: 0.2413
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.262e-04 -1.360e-04 -5.765e-05 1.261e-04 6.026e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.769e-03 1.438e-03 1.230 0.22626
## total_weighted_visits_per_capita -3.591e-03 1.042e-02 -0.344 0.73238
## percent_under_125000 1.382e-05 4.566e-06 3.026 0.00443 **
## avg_household_size -5.774e-04 2.867e-04 -2.014 0.05114 .
## pop_density -2.446e-02 2.472e-02 -0.989 0.32886
## `percent more than 1 occupant` 7.517e-05 2.108e-05 3.565 0.00100 **
## `percent more than 1 unit` -1.472e-05 5.426e-06 -2.713 0.00996 **
## avg_median_age -1.128e-05 1.507e-05 -0.749 0.45868
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002564 on 38 degrees of freedom
## Multiple R-squared: 0.6953, Adjusted R-squared: 0.6392
## F-statistic: 12.39 on 7 and 38 DF, p-value: 3.92e-08
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.137e-04 -2.371e-04 -1.516e-04 8.629e-05 1.450e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0007882 0.0003559 2.215 0.032 *
## total_weighted_visits_per_capita -0.0188614 0.0158798 -1.188 0.241
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0004249 on 44 degrees of freedom
## Multiple R-squared: 0.03107, Adjusted R-squared: 0.009045
## F-statistic: 1.411 on 1 and 44 DF, p-value: 0.2413
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.262e-04 -1.360e-04 -5.765e-05 1.261e-04 6.026e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.769e-03 1.438e-03 1.230 0.22626
## total_weighted_visits_per_capita -3.591e-03 1.042e-02 -0.344 0.73238
## percent_under_125000 1.382e-05 4.566e-06 3.026 0.00443 **
## avg_household_size -5.774e-04 2.867e-04 -2.014 0.05114 .
## pop_density -2.446e-02 2.472e-02 -0.989 0.32886
## `percent more than 1 occupant` 7.517e-05 2.108e-05 3.565 0.00100 **
## `percent more than 1 unit` -1.472e-05 5.426e-06 -2.713 0.00996 **
## avg_median_age -1.128e-05 1.507e-05 -0.749 0.45868
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002564 on 38 degrees of freedom
## Multiple R-squared: 0.6953, Adjusted R-squared: 0.6392
## F-statistic: 12.39 on 7 and 38 DF, p-value: 3.92e-08
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.16538 -0.07392 -0.02502 0.01987 0.54432
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.3140 0.1264 2.485 0.0168 *
## total_weighted_visits_per_capita -7.2082 5.6389 -1.278 0.2078
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1509 on 44 degrees of freedom
## Multiple R-squared: 0.03581, Adjusted R-squared: 0.01389
## F-statistic: 1.634 on 1 and 44 DF, p-value: 0.2078
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.21784 -0.08277 -0.02284 0.03938 0.53134
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.163e+00 8.814e-01 1.320 0.195
## total_weighted_visits_per_capita -8.184e+00 6.390e+00 -1.281 0.208
## percent_under_125000 5.098e-06 2.799e-03 0.002 0.999
## avg_household_size -9.252e-02 1.757e-01 -0.526 0.602
## pop_density -1.776e+01 1.515e+01 -1.172 0.249
## `percent more than 1 occupant` -2.815e-04 1.292e-02 -0.022 0.983
## `percent more than 1 unit` -1.591e-03 3.326e-03 -0.478 0.635
## avg_median_age -1.174e-02 9.240e-03 -1.271 0.212
##
## Residual standard error: 0.1572 on 38 degrees of freedom
## Multiple R-squared: 0.09651, Adjusted R-squared: -0.06992
## F-statistic: 0.5799 on 7 and 38 DF, p-value: 0.7678
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0004260 -0.0002494 -0.0001469 0.0001255 0.0014780
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.907e-04 2.025e-04 2.423 0.0196 *
## total_visit_hours_per_capita -3.910e-05 6.338e-05 -0.617 0.5405
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0004298 on 44 degrees of freedom
## Multiple R-squared: 0.008573, Adjusted R-squared: -0.01396
## F-statistic: 0.3805 on 1 and 44 DF, p-value: 0.5405
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.344e-04 -1.282e-04 -6.187e-05 1.258e-04 6.013e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.729e-03 1.385e-03 1.249 0.21944
## total_visit_hours_per_capita -2.023e-05 4.161e-05 -0.486 0.62961
## percent_under_125000 1.387e-05 4.562e-06 3.040 0.00427 **
## avg_household_size -5.515e-04 2.852e-04 -1.933 0.06065 .
## pop_density -2.407e-02 2.469e-02 -0.975 0.33584
## `percent more than 1 occupant` 7.292e-05 2.163e-05 3.371 0.00173 **
## `percent more than 1 unit` -1.439e-05 5.254e-06 -2.739 0.00932 **
## avg_median_age -1.264e-05 1.549e-05 -0.816 0.41983
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000256 on 38 degrees of freedom
## Multiple R-squared: 0.6962, Adjusted R-squared: 0.6403
## F-statistic: 12.44 on 7 and 38 DF, p-value: 3.709e-08
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0004260 -0.0002494 -0.0001469 0.0001255 0.0014780
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.907e-04 2.025e-04 2.423 0.0196 *
## total_visit_hours_per_capita -3.910e-05 6.338e-05 -0.617 0.5405
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0004298 on 44 degrees of freedom
## Multiple R-squared: 0.008573, Adjusted R-squared: -0.01396
## F-statistic: 0.3805 on 1 and 44 DF, p-value: 0.5405
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.344e-04 -1.282e-04 -6.187e-05 1.258e-04 6.013e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.729e-03 1.385e-03 1.249 0.21944
## total_visit_hours_per_capita -2.023e-05 4.161e-05 -0.486 0.62961
## percent_under_125000 1.387e-05 4.562e-06 3.040 0.00427 **
## avg_household_size -5.515e-04 2.852e-04 -1.933 0.06065 .
## pop_density -2.407e-02 2.469e-02 -0.975 0.33584
## `percent more than 1 occupant` 7.292e-05 2.163e-05 3.371 0.00173 **
## `percent more than 1 unit` -1.439e-05 5.254e-06 -2.739 0.00932 **
## avg_median_age -1.264e-05 1.549e-05 -0.816 0.41983
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.000256 on 38 degrees of freedom
## Multiple R-squared: 0.6962, Adjusted R-squared: 0.6403
## F-statistic: 12.44 on 7 and 38 DF, p-value: 3.709e-08
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.18650 -0.07234 -0.02810 0.02064 0.52756
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.22424 0.07154 3.134 0.00306 **
## total_visit_hours_per_capita -0.02282 0.02240 -1.019 0.31377
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1519 on 44 degrees of freedom
## Multiple R-squared: 0.02306, Adjusted R-squared: 0.0008522
## F-statistic: 1.038 on 1 and 44 DF, p-value: 0.3138
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.21534 -0.07209 -0.01835 0.03655 0.52765
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 9.957e-01 8.502e-01 1.171 0.249
## total_visit_hours_per_capita -3.255e-02 2.555e-02 -1.274 0.210
## percent_under_125000 4.577e-05 2.801e-03 0.016 0.987
## avg_household_size -4.230e-02 1.751e-01 -0.242 0.810
## pop_density -1.773e+01 1.516e+01 -1.169 0.250
## `percent more than 1 occupant` -3.761e-03 1.328e-02 -0.283 0.779
## `percent more than 1 unit` -7.469e-04 3.226e-03 -0.232 0.818
## avg_median_age -1.346e-02 9.514e-03 -1.415 0.165
##
## Residual standard error: 0.1572 on 38 degrees of freedom
## Multiple R-squared: 0.09611, Adjusted R-squared: -0.0704
## F-statistic: 0.5772 on 7 and 38 DF, p-value: 0.7699
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0003934 -0.0002479 -0.0001527 0.0001058 0.0014710
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.156e-04 7.491e-05 5.548 1.55e-06
## total_weighted_visit_hours_per_capita -2.053e-03 1.923e-03 -1.068 0.291
##
## (Intercept) ***
## total_weighted_visit_hours_per_capita
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0004262 on 44 degrees of freedom
## Multiple R-squared: 0.02526, Adjusted R-squared: 0.003109
## F-statistic: 1.14 on 1 and 44 DF, p-value: 0.2914
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.254e-04 -1.306e-04 -6.145e-05 1.261e-04 5.996e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.649e-03 1.385e-03 1.190 0.24133
## total_weighted_visit_hours_per_capita -2.191e-04 1.385e-03 -0.158 0.87513
## percent_under_125000 1.376e-05 4.569e-06 3.012 0.00460 **
## avg_household_size -5.642e-04 2.847e-04 -1.982 0.05478 .
## pop_density -2.455e-02 2.511e-02 -0.978 0.33430
## `percent more than 1 occupant` 7.464e-05 2.159e-05 3.457 0.00136 **
## `percent more than 1 unit` -1.426e-05 5.261e-06 -2.711 0.01000 *
## avg_median_age -1.133e-05 1.563e-05 -0.725 0.47303
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002567 on 38 degrees of freedom
## Multiple R-squared: 0.6945, Adjusted R-squared: 0.6383
## F-statistic: 12.34 on 7 and 38 DF, p-value: 4.098e-08
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0003934 -0.0002479 -0.0001527 0.0001058 0.0014710
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.156e-04 7.491e-05 5.548 1.55e-06
## total_weighted_visit_hours_per_capita -2.053e-03 1.923e-03 -1.068 0.291
##
## (Intercept) ***
## total_weighted_visit_hours_per_capita
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0004262 on 44 degrees of freedom
## Multiple R-squared: 0.02526, Adjusted R-squared: 0.003109
## F-statistic: 1.14 on 1 and 44 DF, p-value: 0.2914
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.254e-04 -1.306e-04 -6.145e-05 1.261e-04 5.996e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.649e-03 1.385e-03 1.190 0.24133
## total_weighted_visit_hours_per_capita -2.191e-04 1.385e-03 -0.158 0.87513
## percent_under_125000 1.376e-05 4.569e-06 3.012 0.00460 **
## avg_household_size -5.642e-04 2.847e-04 -1.982 0.05478 .
## pop_density -2.455e-02 2.511e-02 -0.978 0.33430
## `percent more than 1 occupant` 7.464e-05 2.159e-05 3.457 0.00136 **
## `percent more than 1 unit` -1.426e-05 5.261e-06 -2.711 0.01000 *
## avg_median_age -1.133e-05 1.563e-05 -0.725 0.47303
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002567 on 38 degrees of freedom
## Multiple R-squared: 0.6945, Adjusted R-squared: 0.6383
## F-statistic: 12.34 on 7 and 38 DF, p-value: 4.098e-08
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.16290 -0.06988 -0.02777 0.01165 0.53905
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.17112 0.02664 6.424 8.04e-08 ***
## total_weighted_visit_hours_per_capita -0.75980 0.68379 -1.111 0.273
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1515 on 44 degrees of freedom
## Multiple R-squared: 0.02729, Adjusted R-squared: 0.005188
## F-statistic: 1.235 on 1 and 44 DF, p-value: 0.2725
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.22362 -0.06789 -0.02766 0.03109 0.53763
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 9.907e-01 8.456e-01 1.172 0.249
## total_weighted_visit_hours_per_capita -1.152e+00 8.455e-01 -1.362 0.181
## percent_under_125000 -1.301e-04 2.789e-03 -0.047 0.963
## avg_household_size -6.089e-02 1.738e-01 -0.350 0.728
## pop_density -1.567e+01 1.533e+01 -1.022 0.313
## `percent more than 1 occupant` -3.647e-03 1.318e-02 -0.277 0.784
## `percent more than 1 unit` -5.805e-04 3.212e-03 -0.181 0.858
## avg_median_age -1.394e-02 9.540e-03 -1.462 0.152
##
## Residual standard error: 0.1567 on 38 degrees of freedom
## Multiple R-squared: 0.1014, Adjusted R-squared: -0.06412
## F-statistic: 0.6126 on 7 and 38 DF, p-value: 0.7419
##
## [1] "Weighted visits:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.214e-04 -2.475e-04 -1.785e-04 7.102e-05 1.429e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0006870 0.0003962 1.734 0.0908 .
## total_weighted_visits_per_capita -0.0128803 0.0179910 -0.716 0.4783
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0004383 on 39 degrees of freedom
## Multiple R-squared: 0.01297, Adjusted R-squared: -0.01234
## F-statistic: 0.5126 on 1 and 39 DF, p-value: 0.4783
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.419e-04 -1.354e-04 -5.975e-05 1.427e-04 6.176e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.550e-03 1.574e-03 0.985 0.33189
## total_weighted_visits_per_capita -3.034e-03 1.214e-02 -0.250 0.80422
## percent_under_125000 1.471e-05 4.900e-06 3.002 0.00508 **
## avg_household_size -5.438e-04 3.360e-04 -1.618 0.11510
## pop_density -2.050e-02 2.660e-02 -0.771 0.44643
## `percent more than 1 occupant` 7.381e-05 2.460e-05 3.000 0.00510 **
## `percent more than 1 unit` -1.490e-05 6.230e-06 -2.391 0.02264 *
## avg_median_age -9.937e-06 1.635e-05 -0.608 0.54738
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002655 on 33 degrees of freedom
## Multiple R-squared: 0.6937, Adjusted R-squared: 0.6287
## F-statistic: 10.68 on 7 and 33 DF, p-value: 6.059e-07
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.16306 -0.06139 -0.01600 0.02041 0.50773
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.2800 0.1152 2.430 0.0198 *
## total_weighted_visits_per_capita -5.6697 5.2328 -1.083 0.2852
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1275 on 39 degrees of freedom
## Multiple R-squared: 0.02922, Adjusted R-squared: 0.00433
## F-statistic: 1.174 on 1 and 39 DF, p-value: 0.2852
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.21355 -0.05324 -0.02290 0.03691 0.48609
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.088e+00 7.875e-01 1.382 0.176
## total_weighted_visits_per_capita -6.792e+00 6.074e+00 -1.118 0.272
## percent_under_125000 2.658e-05 2.451e-03 0.011 0.991
## avg_household_size -6.331e-02 1.681e-01 -0.377 0.709
## pop_density -9.600e+00 1.330e+01 -0.722 0.476
## `percent more than 1 occupant` -2.597e-03 1.231e-02 -0.211 0.834
## `percent more than 1 unit` -1.882e-03 3.116e-03 -0.604 0.550
## avg_median_age -1.265e-02 8.176e-03 -1.547 0.131
##
## Residual standard error: 0.1328 on 33 degrees of freedom
## Multiple R-squared: 0.109, Adjusted R-squared: -0.07996
## F-statistic: 0.5769 on 7 and 33 DF, p-value: 0.7694
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.078e-04 -2.728e-04 -1.562e-04 9.029e-05 1.446e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 4.070e-04 4.715e-04 0.863 0.393
## total_visit_hours_per_capita 2.138e-07 1.588e-04 0.001 0.999
##
## Residual standard error: 0.0004412 on 39 degrees of freedom
## Multiple R-squared: 4.648e-08, Adjusted R-squared: -0.02564
## F-statistic: 1.813e-06 on 1 and 39 DF, p-value: 0.9989
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.979e-04 -1.455e-04 -4.993e-05 1.150e-04 6.177e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.747e-03 1.549e-03 1.128 0.26739
## total_visit_hours_per_capita -9.252e-05 1.263e-04 -0.732 0.46910
## percent_under_125000 1.499e-05 4.882e-06 3.071 0.00426 **
## avg_household_size -5.260e-04 3.279e-04 -1.604 0.11819
## pop_density -2.109e-02 2.636e-02 -0.800 0.42931
## `percent more than 1 occupant` 7.301e-05 2.431e-05 3.003 0.00507 **
## `percent more than 1 unit` -1.576e-05 6.183e-06 -2.549 0.01563 *
## avg_median_age -1.041e-05 1.624e-05 -0.641 0.52609
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002636 on 33 degrees of freedom
## Multiple R-squared: 0.698, Adjusted R-squared: 0.634
## F-statistic: 10.9 on 7 and 33 DF, p-value: 4.86e-07
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.15405 -0.06564 -0.02570 0.01979 0.49920
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.19760 0.13814 1.430 0.161
## total_visit_hours_per_capita -0.01382 0.04652 -0.297 0.768
##
## Residual standard error: 0.1293 on 39 degrees of freedom
## Multiple R-squared: 0.002258, Adjusted R-squared: -0.02333
## F-statistic: 0.08827 on 1 and 39 DF, p-value: 0.768
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.19524 -0.05990 -0.01731 0.03229 0.48351
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.944482 0.790740 1.194 0.241
## total_visit_hours_per_capita -0.037476 0.064505 -0.581 0.565
## percent_under_125000 0.000100 0.002493 0.040 0.968
## avg_household_size -0.027692 0.167437 -0.165 0.870
## pop_density -10.579784 13.460722 -0.786 0.437
## `percent more than 1 occupant` -0.004017 0.012415 -0.324 0.748
## `percent more than 1 unit` -0.001397 0.003157 -0.442 0.661
## avg_median_age -0.012804 0.008294 -1.544 0.132
##
## Residual standard error: 0.1346 on 33 degrees of freedom
## Multiple R-squared: 0.08463, Adjusted R-squared: -0.1095
## F-statistic: 0.4359 on 7 and 33 DF, p-value: 0.8724
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.566e-04 -2.449e-04 -1.524e-04 8.637e-05 1.446e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0005561 0.0001784 3.118 0.00342 **
## total_weighted_visit_hours_per_capita -0.0091898 0.0102014 -0.901 0.37321
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0004367 on 39 degrees of freedom
## Multiple R-squared: 0.02038, Adjusted R-squared: -0.004735
## F-statistic: 0.8115 on 1 and 39 DF, p-value: 0.3732
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.434e-04 -1.328e-04 -6.626e-05 1.507e-04 6.151e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.453e-03 1.569e-03 0.926 0.36129
## total_weighted_visit_hours_per_capita -3.939e-04 7.576e-03 -0.052 0.95885
## percent_under_125000 1.470e-05 4.910e-06 2.994 0.00518 **
## avg_household_size -5.305e-04 3.331e-04 -1.592 0.12085
## pop_density -2.068e-02 2.689e-02 -0.769 0.44717
## `percent more than 1 occupant` 7.305e-05 2.471e-05 2.956 0.00572 **
## `percent more than 1 unit` -1.447e-05 5.985e-06 -2.418 0.02131 *
## avg_median_age -1.020e-05 1.723e-05 -0.592 0.55797
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002657 on 33 degrees of freedom
## Multiple R-squared: 0.6932, Adjusted R-squared: 0.6281
## F-statistic: 10.65 on 7 and 33 DF, p-value: 6.231e-07
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.17329 -0.06281 -0.02621 0.01764 0.48480
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.20638 0.05215 3.957 0.000311 ***
## total_weighted_visit_hours_per_capita -3.05666 2.98292 -1.025 0.311809
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1277 on 39 degrees of freedom
## Multiple R-squared: 0.02622, Adjusted R-squared: 0.00125
## F-statistic: 1.05 on 1 and 39 DF, p-value: 0.3118
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.18327 -0.05840 -0.01107 0.04352 0.46747
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.1845989 0.7692305 1.540 0.1331
## total_weighted_visit_hours_per_capita -5.9896580 3.7137793 -1.613 0.1163
## percent_under_125000 0.0001747 0.0024068 0.073 0.9426
## avg_household_size -0.0615145 0.1632985 -0.377 0.7088
## pop_density -7.2624180 13.1788361 -0.551 0.5853
## `percent more than 1 occupant` -0.0064626 0.0121145 -0.533 0.5973
## `percent more than 1 unit` -0.0012741 0.0029339 -0.434 0.6669
## avg_median_age -0.0168838 0.0084470 -1.999 0.0539 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1302 on 33 degrees of freedom
## Multiple R-squared: 0.1428, Adjusted R-squared: -0.03899
## F-statistic: 0.7856 on 7 and 33 DF, p-value: 0.6042
##
## [1] "Cases start date: 2020-06-22"
## [1] "Visits start date: 2020-06-08"
## [1] "Weighted visits (by area and other visitors):"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.138e-04 -2.171e-04 -9.252e-05 7.425e-05 1.096e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0005285 0.0002649 1.995 0.0523 .
## total_weighted_visits_per_capita -0.0060244 0.0110861 -0.543 0.5896
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003369 on 44 degrees of freedom
## Multiple R-squared: 0.006667, Adjusted R-squared: -0.01591
## F-statistic: 0.2953 on 1 and 44 DF, p-value: 0.5896
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.317e-04 -1.010e-04 -3.960e-06 1.187e-04 6.336e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.430e-03 1.259e-03 1.930 0.0611 .
## total_weighted_visits_per_capita -9.124e-03 9.864e-03 -0.925 0.3608
## percent_under_125000 7.253e-06 4.103e-06 1.768 0.0852 .
## avg_household_size -3.788e-04 2.576e-04 -1.471 0.1497
## pop_density -7.120e-02 2.344e-02 -3.038 0.0043 **
## `percent more than 1 occupant` 4.592e-05 1.945e-05 2.361 0.0235 *
## `percent more than 1 unit` -7.289e-06 5.142e-06 -1.418 0.1645
## avg_median_age -2.721e-05 1.351e-05 -2.014 0.0511 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002303 on 38 degrees of freedom
## Multiple R-squared: 0.5992, Adjusted R-squared: 0.5254
## F-statistic: 8.116 on 7 and 38 DF, p-value: 5.086e-06
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.138e-04 -2.171e-04 -9.252e-05 7.425e-05 1.096e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0005285 0.0002649 1.995 0.0523 .
## total_weighted_visits_per_capita -0.0060244 0.0110861 -0.543 0.5896
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003369 on 44 degrees of freedom
## Multiple R-squared: 0.006667, Adjusted R-squared: -0.01591
## F-statistic: 0.2953 on 1 and 44 DF, p-value: 0.5896
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.317e-04 -1.010e-04 -3.960e-06 1.187e-04 6.336e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.430e-03 1.259e-03 1.930 0.0611 .
## total_weighted_visits_per_capita -9.124e-03 9.864e-03 -0.925 0.3608
## percent_under_125000 7.253e-06 4.103e-06 1.768 0.0852 .
## avg_household_size -3.788e-04 2.576e-04 -1.471 0.1497
## pop_density -7.120e-02 2.344e-02 -3.038 0.0043 **
## `percent more than 1 occupant` 4.592e-05 1.945e-05 2.361 0.0235 *
## `percent more than 1 unit` -7.289e-06 5.142e-06 -1.418 0.1645
## avg_median_age -2.721e-05 1.351e-05 -2.014 0.0511 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002303 on 38 degrees of freedom
## Multiple R-squared: 0.5992, Adjusted R-squared: 0.5254
## F-statistic: 8.116 on 7 and 38 DF, p-value: 5.086e-06
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.21558 -0.07758 -0.03516 0.05274 0.57575
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.4207 0.1066 3.948 0.00028 ***
## total_weighted_visits_per_capita -10.7751 4.4589 -2.417 0.01988 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1355 on 44 degrees of freedom
## Multiple R-squared: 0.1172, Adjusted R-squared: 0.09711
## F-statistic: 5.84 on 1 and 44 DF, p-value: 0.01988
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.21686 -0.07464 0.00028 0.05898 0.50043
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.314070 0.719657 1.826 0.0757 .
## total_weighted_visits_per_capita -9.646477 5.639066 -1.711 0.0953 .
## percent_under_125000 -0.004669 0.002346 -1.991 0.0538 .
## avg_household_size -0.054141 0.147240 -0.368 0.7151
## pop_density -13.413204 13.400154 -1.001 0.3232
## `percent more than 1 occupant` 0.002889 0.011118 0.260 0.7964
## `percent more than 1 unit` -0.000118 0.002939 -0.040 0.9682
## avg_median_age -0.011689 0.007725 -1.513 0.1385
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1316 on 38 degrees of freedom
## Multiple R-squared: 0.2804, Adjusted R-squared: 0.1479
## F-statistic: 2.116 on 7 and 38 DF, p-value: 0.06534
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.881e-04 -2.134e-04 -9.154e-05 8.040e-05 1.101e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.760e-04 2.728e-04 1.378 0.175
## total_visit_hours_per_capita 3.481e-06 8.447e-05 0.041 0.967
##
## Residual standard error: 0.000338 on 44 degrees of freedom
## Multiple R-squared: 3.859e-05, Adjusted R-squared: -0.02269
## F-statistic: 0.001698 on 1 and 44 DF, p-value: 0.9673
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.967e-04 -1.174e-04 1.347e-05 9.281e-05 6.000e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.716e-03 1.206e-03 2.253 0.03012 *
## total_visit_hours_per_capita -1.406e-04 6.792e-05 -2.070 0.04528 *
## percent_under_125000 7.634e-06 3.938e-06 1.938 0.06002 .
## avg_household_size -3.662e-04 2.450e-04 -1.495 0.14323
## pop_density -7.272e-02 2.135e-02 -3.405 0.00157 **
## `percent more than 1 occupant` 4.780e-05 1.838e-05 2.601 0.01316 *
## `percent more than 1 unit` -8.259e-06 4.730e-06 -1.746 0.08884 .
## avg_median_age -2.939e-05 1.287e-05 -2.283 0.02814 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002207 on 38 degrees of freedom
## Multiple R-squared: 0.6317, Adjusted R-squared: 0.5639
## F-statistic: 9.312 on 7 and 38 DF, p-value: 1.151e-06
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.881e-04 -2.134e-04 -9.154e-05 8.040e-05 1.101e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.760e-04 2.728e-04 1.378 0.175
## total_visit_hours_per_capita 3.481e-06 8.447e-05 0.041 0.967
##
## Residual standard error: 0.000338 on 44 degrees of freedom
## Multiple R-squared: 3.859e-05, Adjusted R-squared: -0.02269
## F-statistic: 0.001698 on 1 and 44 DF, p-value: 0.9673
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.967e-04 -1.174e-04 1.347e-05 9.281e-05 6.000e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.716e-03 1.206e-03 2.253 0.03012 *
## total_visit_hours_per_capita -1.406e-04 6.792e-05 -2.070 0.04528 *
## percent_under_125000 7.634e-06 3.938e-06 1.938 0.06002 .
## avg_household_size -3.662e-04 2.450e-04 -1.495 0.14323
## pop_density -7.272e-02 2.135e-02 -3.405 0.00157 **
## `percent more than 1 occupant` 4.780e-05 1.838e-05 2.601 0.01316 *
## `percent more than 1 unit` -8.259e-06 4.730e-06 -1.746 0.08884 .
## avg_median_age -2.939e-05 1.287e-05 -2.283 0.02814 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002207 on 38 degrees of freedom
## Multiple R-squared: 0.6317, Adjusted R-squared: 0.5639
## F-statistic: 9.312 on 7 and 38 DF, p-value: 1.151e-06
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.24579 -0.08475 -0.03259 0.03823 0.55757
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.31892 0.11406 2.796 0.00764 **
## total_visit_hours_per_capita -0.04760 0.03532 -1.348 0.18464
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1413 on 44 degrees of freedom
## Multiple R-squared: 0.03965, Adjusted R-squared: 0.01782
## F-statistic: 1.816 on 1 and 44 DF, p-value: 0.1846
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.24946 -0.06998 0.00402 0.05118 0.50367
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.149e+00 7.417e-01 1.549 0.1296
## total_visit_hours_per_capita -2.814e-02 4.179e-02 -0.673 0.5047
## percent_under_125000 -4.753e-03 2.423e-03 -1.962 0.0572 .
## avg_household_size -2.513e-02 1.507e-01 -0.167 0.8684
## pop_density -1.994e+01 1.314e+01 -1.518 0.1374
## `percent more than 1 occupant` -2.815e-04 1.131e-02 -0.025 0.9803
## `percent more than 1 unit` 1.307e-03 2.910e-03 0.449 0.6559
## avg_median_age -1.334e-02 7.921e-03 -1.684 0.1003
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1358 on 38 degrees of freedom
## Multiple R-squared: 0.2341, Adjusted R-squared: 0.09307
## F-statistic: 1.66 on 7 and 38 DF, p-value: 0.1486
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.505e-04 -1.759e-04 -9.374e-05 6.549e-05 1.120e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0005179 0.0001194 4.340 8.23e-05
## total_weighted_visit_hours_per_capita -0.0065414 0.0054396 -1.203 0.236
##
## (Intercept) ***
## total_weighted_visit_hours_per_capita
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003326 on 44 degrees of freedom
## Multiple R-squared: 0.03182, Adjusted R-squared: 0.009816
## F-statistic: 1.446 on 1 and 44 DF, p-value: 0.2356
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.481e-04 -1.119e-04 -5.750e-06 8.841e-05 5.981e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.688e-03 1.367e-03 1.967 0.05650 .
## total_weighted_visit_hours_per_capita -4.296e-03 4.963e-03 -0.865 0.39220
## percent_under_125000 7.074e-06 4.104e-06 1.724 0.09291 .
## avg_household_size -4.686e-04 2.913e-04 -1.609 0.11600
## pop_density -6.860e-02 2.488e-02 -2.757 0.00891 **
## `percent more than 1 occupant` 4.883e-05 2.063e-05 2.367 0.02314 *
## `percent more than 1 unit` -7.911e-06 5.545e-06 -1.427 0.16182
## avg_median_age -3.044e-05 1.360e-05 -2.237 0.03121 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002306 on 38 degrees of freedom
## Multiple R-squared: 0.5981, Adjusted R-squared: 0.5241
## F-statistic: 8.079 on 7 and 38 DF, p-value: 5.336e-06
##
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.505e-04 -1.759e-04 -9.374e-05 6.549e-05 1.120e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0005179 0.0001194 4.340 8.23e-05
## total_weighted_visit_hours_per_capita -0.0065414 0.0054396 -1.203 0.236
##
## (Intercept) ***
## total_weighted_visit_hours_per_capita
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003326 on 44 degrees of freedom
## Multiple R-squared: 0.03182, Adjusted R-squared: 0.009816
## F-statistic: 1.446 on 1 and 44 DF, p-value: 0.2356
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.481e-04 -1.119e-04 -5.750e-06 8.841e-05 5.981e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.688e-03 1.367e-03 1.967 0.05650 .
## total_weighted_visit_hours_per_capita -4.296e-03 4.963e-03 -0.865 0.39220
## percent_under_125000 7.074e-06 4.104e-06 1.724 0.09291 .
## avg_household_size -4.686e-04 2.913e-04 -1.609 0.11600
## pop_density -6.860e-02 2.488e-02 -2.757 0.00891 **
## `percent more than 1 occupant` 4.883e-05 2.063e-05 2.367 0.02314 *
## `percent more than 1 unit` -7.911e-06 5.545e-06 -1.427 0.16182
## avg_median_age -3.044e-05 1.360e-05 -2.237 0.03121 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002306 on 38 degrees of freedom
## Multiple R-squared: 0.5981, Adjusted R-squared: 0.5241
## F-statistic: 8.079 on 7 and 38 DF, p-value: 5.336e-06
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_start_non0)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.20344 -0.08566 -0.04587 0.05461 0.61513
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.2414 0.0503 4.799 1.87e-05 ***
## total_weighted_visit_hours_per_capita -3.6800 2.2924 -1.605 0.116
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1402 on 44 degrees of freedom
## Multiple R-squared: 0.05533, Adjusted R-squared: 0.03386
## F-statistic: 2.577 on 1 and 44 DF, p-value: 0.1156
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_non0_dem)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.25835 -0.06553 0.00733 0.04123 0.52570
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.377e+00 7.999e-01 1.722 0.0932 .
## total_weighted_visit_hours_per_capita -2.802e+00 2.905e+00 -0.965 0.3409
## percent_under_125000 -4.862e-03 2.402e-03 -2.024 0.0500 .
## avg_household_size -1.002e-01 1.705e-01 -0.588 0.5602
## pop_density -1.466e+01 1.456e+01 -1.006 0.3206
## `percent more than 1 occupant` 3.114e-03 1.208e-02 0.258 0.7979
## `percent more than 1 unit` 2.412e-04 3.246e-03 0.074 0.9412
## avg_median_age -1.437e-02 7.963e-03 -1.804 0.0792 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.135 on 38 degrees of freedom
## Multiple R-squared: 0.2435, Adjusted R-squared: 0.1042
## F-statistic: 1.748 on 7 and 38 DF, p-value: 0.1271
##
## [1] "Weighted visits:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.532e-04 -2.145e-04 -1.019e-04 7.944e-05 1.074e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0004077 0.0002968 1.374 0.177
## total_weighted_visits_per_capita 0.0002445 0.0125677 0.019 0.985
##
## Residual standard error: 0.0003371 on 40 degrees of freedom
## Multiple R-squared: 9.46e-06, Adjusted R-squared: -0.02499
## F-statistic: 0.0003784 on 1 and 40 DF, p-value: 0.9846
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.077e-04 -1.172e-04 -5.890e-06 1.152e-04 6.002e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.228e-03 1.312e-03 1.698 0.09861 .
## total_weighted_visits_per_capita -8.769e-03 1.061e-02 -0.826 0.41437
## percent_under_125000 8.623e-06 4.246e-06 2.031 0.05017 .
## avg_household_size -2.860e-04 2.815e-04 -1.016 0.31683
## pop_density -7.237e-02 2.413e-02 -2.999 0.00503 **
## `percent more than 1 occupant` 3.672e-05 2.116e-05 1.735 0.09178 .
## `percent more than 1 unit` -5.947e-06 5.390e-06 -1.103 0.27766
## avg_median_age -3.098e-05 1.428e-05 -2.170 0.03710 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002316 on 34 degrees of freedom
## Multiple R-squared: 0.5987, Adjusted R-squared: 0.5161
## F-statistic: 7.246 on 7 and 34 DF, p-value: 2.529e-05
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.16579 -0.06217 -0.02522 0.04974 0.34754
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.33011 0.08901 3.709 0.000632 ***
## total_weighted_visits_per_capita -7.10197 3.76891 -1.884 0.066798 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1011 on 40 degrees of freedom
## Multiple R-squared: 0.08153, Adjusted R-squared: 0.05857
## F-statistic: 3.551 on 1 and 40 DF, p-value: 0.0668
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visits_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.145578 -0.065576 -0.002355 0.048490 0.303286
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.043e+00 5.462e-01 1.909 0.0647 .
## total_weighted_visits_per_capita -4.702e+00 4.417e+00 -1.065 0.2946
## percent_under_125000 -3.145e-03 1.768e-03 -1.779 0.0842 .
## avg_household_size -1.982e-02 1.172e-01 -0.169 0.8667
## pop_density -1.256e+01 1.005e+01 -1.251 0.2196
## `percent more than 1 occupant` -2.723e-03 8.809e-03 -0.309 0.7591
## `percent more than 1 unit` 5.288e-04 2.244e-03 0.236 0.8151
## avg_median_age -1.241e-02 5.943e-03 -2.089 0.0443 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.09643 on 34 degrees of freedom
## Multiple R-squared: 0.2897, Adjusted R-squared: 0.1435
## F-statistic: 1.981 on 7 and 34 DF, p-value: 0.08686
##
## [1] "Visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.904e-04 -1.947e-04 -1.038e-04 8.824e-05 1.062e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 5.521e-04 3.283e-04 1.682 0.100
## total_visit_hours_per_capita -4.279e-05 1.001e-04 -0.428 0.671
##
## Residual standard error: 0.0003364 on 40 degrees of freedom
## Multiple R-squared: 0.004553, Adjusted R-squared: -0.02033
## F-statistic: 0.1829 on 1 and 40 DF, p-value: 0.6712
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.843e-04 -1.105e-04 -5.970e-06 8.747e-05 5.330e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.050e-03 1.293e-03 2.358 0.02425 *
## total_visit_hours_per_capita -1.823e-04 8.003e-05 -2.278 0.02913 *
## percent_under_125000 8.274e-06 3.988e-06 2.075 0.04565 *
## avg_household_size -3.264e-04 2.655e-04 -1.229 0.22741
## pop_density -6.661e-02 2.234e-02 -2.982 0.00527 **
## `percent more than 1 occupant` 4.042e-05 1.993e-05 2.028 0.05047 .
## `percent more than 1 unit` -8.630e-06 5.156e-06 -1.674 0.10337
## avg_median_age -3.709e-05 1.364e-05 -2.719 0.01024 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002179 on 34 degrees of freedom
## Multiple R-squared: 0.6448, Adjusted R-squared: 0.5717
## F-statistic: 8.819 on 7 and 34 DF, p-value: 3.752e-06
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.14565 -0.07015 -0.03155 0.04316 0.39029
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.21272 0.10268 2.072 0.0448 *
## total_visit_hours_per_capita -0.01473 0.03129 -0.471 0.6403
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1052 on 40 degrees of freedom
## Multiple R-squared: 0.005512, Adjusted R-squared: -0.01935
## F-statistic: 0.2217 on 1 and 40 DF, p-value: 0.6403
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.17462 -0.05373 0.00196 0.04569 0.33086
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.906735 0.581581 1.559 0.1282
## total_visit_hours_per_capita 0.004991 0.035989 0.139 0.8905
## percent_under_125000 -0.003254 0.001794 -1.814 0.0785 .
## avg_household_size -0.016806 0.119392 -0.141 0.8889
## pop_density -15.903266 10.046266 -1.583 0.1227
## `percent more than 1 occupant` -0.003967 0.008964 -0.443 0.6609
## `percent more than 1 unit` 0.001333 0.002319 0.575 0.5691
## avg_median_age -0.012535 0.006134 -2.043 0.0488 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.098 on 34 degrees of freedom
## Multiple R-squared: 0.2665, Adjusted R-squared: 0.1154
## F-statistic: 1.764 on 7 and 34 DF, p-value: 0.1271
##
## [1] "Weighted visit hours:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.682e-04 -1.915e-04 -1.111e-04 7.391e-05 1.089e-03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0004868 0.0001423 3.420 0.00145 **
## total_weighted_visit_hours_per_capita -0.0038312 0.0069212 -0.554 0.58297
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0003358 on 40 degrees of freedom
## Multiple R-squared: 0.007602, Adjusted R-squared: -0.01721
## F-statistic: 0.3064 on 1 and 40 DF, p-value: 0.583
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4.247e-04 -1.172e-04 1.670e-06 8.198e-05 4.915e-04
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.092e-03 1.411e-03 2.191 0.03540 *
## total_weighted_visit_hours_per_capita -1.169e-02 7.116e-03 -1.642 0.10974
## percent_under_125000 9.029e-06 4.138e-06 2.182 0.03611 *
## avg_household_size -4.399e-04 2.899e-04 -1.517 0.13843
## pop_density -5.263e-02 2.730e-02 -1.928 0.06227 .
## `percent more than 1 occupant` 3.949e-05 2.064e-05 1.913 0.06415 .
## `percent more than 1 unit` -8.555e-06 5.549e-06 -1.542 0.13238
## avg_median_age -4.140e-05 1.512e-05 -2.738 0.00977 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0002252 on 34 degrees of freedom
## Multiple R-squared: 0.6207, Adjusted R-squared: 0.5426
## F-statistic: 7.949 on 7 and 34 DF, p-value: 1.051e-05
##
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita,
## data = visits_cases_change_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.12515 -0.07628 -0.03552 0.05580 0.36797
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.21929 0.04375 5.013 1.14e-05 ***
## total_weighted_visit_hours_per_capita -2.83521 2.12730 -1.333 0.19
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1032 on 40 degrees of freedom
## Multiple R-squared: 0.04252, Adjusted R-squared: 0.01858
## F-statistic: 1.776 on 1 and 40 DF, p-value: 0.1901
##
## [1] "Control for demographic variables:"
##
## Call:
## lm(formula = change_log_cases_by_pop ~ total_weighted_visit_hours_per_capita +
## percent_under_125000 + avg_household_size + pop_density +
## `percent more than 1 occupant` + `percent more than 1 unit` +
## avg_median_age, data = visits_cases_change_dem_exc)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.16876 -0.06469 0.00418 0.03585 0.32272
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.2975556 0.5991669 2.166 0.0374 *
## total_weighted_visit_hours_per_capita -3.9808134 3.0216118 -1.317 0.1965
## percent_under_125000 -0.0030477 0.0017569 -1.735 0.0919 .
## avg_household_size -0.0715786 0.1230949 -0.581 0.5647
## pop_density -6.9421760 11.5908636 -0.599 0.5532
## `percent more than 1 occupant` -0.0021734 0.0087642 -0.248 0.8056
## `percent more than 1 unit` -0.0001056 0.0023559 -0.045 0.9645
## avg_median_age -0.0160650 0.0064208 -2.502 0.0173 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.09562 on 34 degrees of freedom
## Multiple R-squared: 0.3017, Adjusted R-squared: 0.1579
## F-statistic: 2.098 on 7 and 34 DF, p-value: 0.07062
model_results_wt <- model_results_wt %>%
mutate(visits_start_date = as.Date(cases_start_date) - visits_lag) %>%
mutate(r_squared = as.numeric(r_squared), p_val = as.numeric(p_val), coef_val = as.numeric(coef_val))
model_results_1_wt <- rbind(model_results_1 %>% mutate(weight_type = "unweighted"), model_results_wt)
Comparing the weighted and unweighted results. Specifically first for the change in cases metric:
model_results_1_wt_change_cases <- model_results_1_wt %>%
filter(model_type == "change in cases")
model_results_1_wt_change_cases %>%
plot_ly() %>%
add_trace(x = ~visits_start_date, y = ~r_squared, type = 'scatter', mode = 'markers', color = ~weight_type) %>%
add_trace(x = ~visits_start_date, y = ~r_squared, type = 'scatter', mode = 'lines', color = ~weight_type, showlegend = F) %>%
layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "R squared for that model"), title = "R squared, 1 week interval, 14 day lag, Alameda, change in cases")
model_results_1_wt_change_cases %>%
plot_ly() %>%
add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'markers', color = ~weight_type) %>%
add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'lines', color = ~weight_type, showlegend = F) %>%
layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "Visits coefficient for that model"), title = "Visits coef, 1 week interval, 14 day lag, Alameda, change in cases")
# hard to see unweighted and visit hours so just look at those
model_results_1_wt_change_cases %>% filter(weight_type == "visit hours" | weight_type == "unweighted") %>%
plot_ly() %>%
add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'markers', color = ~weight_type) %>%
add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'lines', color = ~weight_type, showlegend = F) %>%
layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "Visits coefficient for that model"), title = "Visits coef, 1 week interval, 14 day lag, Alameda, change in cases")
model_results_1_wt_change_cases %>%
plot_ly() %>%
add_trace(x = ~visits_start_date, y = ~p_val, type = 'scatter', mode = 'markers', color = ~weight_type) %>%
add_trace(x = ~visits_start_date, y = ~p_val, type = 'scatter', mode = 'lines', color = ~weight_type, showlegend = F) %>%
layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "P value of coefficient for that model"), title = "Coef p val, 1 week interval, 14 day lag, Alameda, change in cases")
It seems that unweighted visits do best initially, but then visit hours and weighted visits get better, and there is a period when unweighted visits and visit hours start to fall off in which weighted visits start doing better, relatively. But past May 18th/25th all seem to do poorly. This could make sense if during that middle period, that is when the relevant dynamics were most at play that we can assess with weighted visits: things were starting to reopen/people were starting to move around more, but weren’t wearing masks as much yet, so visits to locations where social distancing was less possible (due to space constraints or many visitors per hour) would be more impactful?
Same but for change in cases for values that start at 10 cases or above:
model_results_1_wt_change_cases_10 <- model_results_1_wt %>%
filter(model_type == "change in cases, starting above 10")
model_results_1_wt_change_cases_10 %>%
plot_ly() %>%
add_trace(x = ~visits_start_date, y = ~r_squared, type = 'scatter', mode = 'markers', color = ~weight_type) %>%
add_trace(x = ~visits_start_date, y = ~r_squared, type = 'scatter', mode = 'lines', color = ~weight_type, showlegend = F) %>%
layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "R squared for that model"), title = "R squared, 1 week interval, 14 day lag, Alameda, change in cases start >=10")
model_results_1_wt_change_cases_10 %>%
plot_ly() %>%
add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'markers', color = ~weight_type) %>%
add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'lines', color = ~weight_type, showlegend = F) %>%
layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "Visits coefficient for that model"), title = "Visits coef, 1 week interval, 14 day lag, Alameda, change in cases start >=10")
# hard to see unweighted and visit hours so just look at those
model_results_1_wt_change_cases_10 %>% filter(weight_type == "visit hours" | weight_type == "unweighted") %>%
plot_ly() %>%
add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'markers', color = ~weight_type) %>%
add_trace(x = ~visits_start_date, y = ~coef_val, type = 'scatter', mode = 'lines', color = ~weight_type, showlegend = F) %>%
layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "Visits coefficient for that model"), title = "Visits coef, 1 week interval, 14 day lag, Alameda, change in cases start >=10")
model_results_1_wt_change_cases_10 %>%
plot_ly() %>%
add_trace(x = ~visits_start_date, y = ~p_val, type = 'scatter', mode = 'markers', color = ~weight_type) %>%
add_trace(x = ~visits_start_date, y = ~p_val, type = 'scatter', mode = 'lines', color = ~weight_type, showlegend = F) %>%
layout(xaxis = list(title = "Start date of visits"), yaxis = list(title = "P value of coefficient for that model"), title = "Coef p val, 1 week interval, 14 day lag, Alameda, change in cases start >=10")
Weighted visits do even better, relatively, in the middle time period with this metric. That’s interesting; I’m not sure what might explain that. Maybe that’s just when more (reliable) data becomes available?